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MODULE showprocess (IDENT = 


ADDRESSING “MODE SEXTERNAL, = = GENERAL)) = 
BEGIN 
; 
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ie COPYRIGHT (<) 1978, 0282 1982, 1984 8 
ie DIGITAL EouI PORATION, MAYHARS. MASSACHUSETTS. 
ie ALL RIGHTS RES mi fon 


:@ bg SOFTWARE IS ANCE UIT UNDER A LICENSE AND MAY BE USED AND COPIED 
; TH THE TERMS OF SUCH bICENS one's THE 


; OFT 
+e copies. THEREOF NaAY NOT eto a OVIDED OR OTHERWISE MADE AVAILABLE TO ANY 
!@ QTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY 
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ie | oe J IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
;° we . he = BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 


:* DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
!* SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 
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1 'ee 
' 
§ FACILITY: SHOW utility 
5 5 i ABSTRACT: 
: This module contains the routines for the SHOW PROCESS command. 
i ENVIRONMENT: 
4 H VAX native, user and kernel mode 
41 1 AUTHOR: Gerry Smith CREATION DATE: 8-Sep-1982 
43 ; MODIFIED BY: 
45 5 1 v03-022 MCNO188 ia del C. Nasr 29-Aug-1984 
4 § : Add routine CHECK: *PRIVELEGE to turn off WORLD privelege 
4 : 7° the user issuing the SHOW PROCESS command does not é 
¢ 3 : have it. 
0 39 ‘ v03-021 RCNO 82 Maria del C. Nas 24-Jul-1984 é 
1 1 : id three new quotas returned d by GETUPI: MAXDETACH 
¢ 3 i MAK JOBS. SHRFILLM. Also, make the sizes in the jpi : 
f 54 List match those in SJPIOEF macro. é 
< 
5 5 ! v03-020 mrwoi st Maria del C. Nas 23-Jul-1984 
§ 2$ : Eliminate from the display of SHOW PROC/PRIV some : 
5 : privileges that are not implemented yet (UPGRADE, é 
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14-Sep-19 
DOWNGRADE, PRMJNL, TMPJNL). 
v03-019 MCNO178 a del C. 16-Jul-1984 
Fix aisepettings : messages displayed by show PROC/PRIV. 
v03-018 AEWO001 Anne E. Warner 17-May-1984 


pactoese the size of the verieole that holds the 
SH5851 ete 0 the process default disk 


ISK) to 256 bytes. is is to avoid truncation 
oF the disk name when printed. 
v03-017 A Hai Huang 27-Feb-1984 
Aad ob-wide mount support. 
v03-016 M aria del C. Nasr 08-F eb-1984 


l 
if gg bey PROCESS/ALL/ 1D is speci tied and the process id 
S not the same as the current process, do not displ ay 
memory, nor subprocesses. Also, when the user specified 
a pid value, call SGETJPI to make sure we work with the 
extended form. 


v03-015 GASO187 Gerry Smith 20-Sep-1983 
Fix up displays for Yquote and /accounting. 
v03-014 LMP0140 L. Mark Pilant 23-Aug-1983 22:43 
Add support for alphanumeric vics. 
v03-013 GASO159 Gerry Smith 26-Jul-1983 


Fix the display for SHOW PROC/PRIV so that the 
4S. is columnar. 


v03-012 GASO149 errs Smith 27-Jun-1983 
btain device names from the common system routine 


IOCSCVT_DEVNAM, 
v03-011 RSHO020 R. Scott Hanna 21-May-1983 
Add SECURITY privilege 
v03-010 ont Gerry Smith Moyet? 
d the access control 1h lists for SHOU ROCIPRIV. 
v03-009 GAS0129 Gerry Smith 28-Apr-1983 
For MSCP devices, tix display problem that coused the 


mit number to be zero always. 


v03-008 gaoetes Gerry Smith a0etor~ 1965 
ones the name of prv$v_noacnt to ACNT. Also add 
att L and PRMJNL. 


v03-07 GASO115 Gerry Smith 4-Apr-1983 
Add support for cluster devices. 

v03-006 LMP0083 L. Mark Pilant 28-Feb-1983 15:27 
Add support for the new artetidenss SHARE, UPGRADE, DOWNGRADE, 


GRPPRV, and READALL. 
v03-005 CwH1002 CW Hobbs 25-Feb-1983 


CLIUTL.SRC SHOWPROC.839; 
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SHOWPROCESS bese $ep-1984 AX-11 Bliss-32 v4.0-74 Page 3 
v04-000 16-Sep-19 3: 63: H CLIUTL.SRCJSHOWPROC .B32;1 . (1) 


1 15 Use a routine to convert the + - fended p id to a pcb address. 

1 1 Also conyers extended pid to ipid ye heck x gevieg allocation. 

1 1 yse SCHSCL PIXWIDTH to reterente pix x a@ couple of 

1 1 4 byte i os6 s to be 8 bytes. Use iy ine Pease _SWPPIX to anchor 
1 1 loop through PCBVEC. 


v03-004 GAS0107 Gerry Se 24-Jan-1983 
If an error occurs with the /1D qualifier, signal 
@ more reasonable Zee 


v03-003 GAS0106 Gerr ce 21-Jan-1983 
Change the name SETPRI + TALTPRI, since this is the 
preferred name. 


v03-002 GAS0104 Gerry Smith 21-Jan-1983 
Fix the privilege display so that the scan doesn't 
go beyond the end of the privilege table. 


v03-001 GAS0098 Gerry Smith 77-Jan-1983 
Add the count of images activated. 
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1 

1 ‘ 

; H Include files 

1 . 

1 BRARY ‘ SYSSLIBRARY :L 1B"; ! VAX/VMS system definitions 
1 QUIRE *SRCS$:SHOWDEF'; ! SHOW common definitions 


LI 
RE 
: 

; Define shared messages. 


SSHR_MSGDEF (SHOW, 120,LOCAL 
(INVQUAVAL, ERROR) ); 
' 


i Define the em for the routines to lock, unlock, and scan the 1/0 
database, as well as the routines to manipulate pids. 
| 
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$ 1 

3 1 

: 16 1 

; 14 1 

; 614 1 

s 1% 1 

; (146 1 

; 14 1 

; 16 1 

; (6146 1 

3; 14 1 

; 16 1 

a | 1 

=. 1 

3; 1 1 

> | 1 

3 1 

°F 1! 

. 1 LINKAGE 

i 0 1 IOLOCK = JSB (REGISTER = 4), 

3; (15 0 1 CVTPID = JSB (REGISTER=0) : PRESERVE (1,2,3,4,5) NOTUSED (6,7,8,9,10,11), 
; 15 1 CAN = JSB (REGISTER = 11, ' Call with DDB, 

; 160 1 REGISTER = 10; ' ucB, 

; 16 1 REGISTER = 11 ' Return with DDB, 

; 16 0 1 REGISTER = 105, i UCB 

; 16 0 1 CVTDEV = JSB (REGISTER = 0, ! Length of output buffer, 
; 164 8 1 REGISTER = 1, ! Address of output buffer 
3; «6165 1 REGISTER = 4, ! Format of device name 
: 166 0 1 REGISTER = 5; ! Address of UCB 

: 167 9 1 REGISTER = 15; i Length of final name 
; «168 65 1 

; 169 0266 1 

; 170 0267 1 

3s Wi 0268 1! 

3 1% 0269 1 ! Define bits for the flags longword 

+ 17 0 7 1 : | 
3; 176 027 1 MACRO 

. i 0272 1 PROCSV_DEF = So. & T. Be ! print default info 

3 176 0273 1 PROCS$V_ QUOT = 0, 1, 1, O%, ' /QUOTAS 

3; 17 0274 1 PROC$V_AC = 8° ¢: 1, O02, ' /ACCOUNTING 

> 179 0 2 1 PROCSV"MEM = S. he te eC y 

: 180 0277 1 C$vV_S = = Be Be See ' /SUBPROCESS 

2° ; 79 «1 PROC$V_ID = = ia Be Oils ' /IDENTIFICATION 

; 18 0 1 PROCS$V_CONT = 0, 8 1, O8; ' /CONTINUOUS 

i ot 

» 4 1 ! Define the locations of the device name and unit number for allocated 
: He 1 ! and mouited devices. 

» § 5 1! 

: 189 1 MACRO 

: 190 0 1 d_l_length = 0, 0, ; . O2, ' Length of device name 
> 191 1 = = 4, 0, 32, O82, ! Address of device name 
; 136 1 dt.device = 8, i; : ! ASCII device name 

i 198 90 LITERAL™d_k_length = SBYTEOFFSET(d_t_device) + 21; 
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yoo 000" 12-80-1382 9 68i48 CLIUTL. RCTSHOWPROC.B3 31 
! 
i Define the locations of the owner pix and process pix in the 
structure that contains information about subprocesses. 
MACRO 

sub_owner = 0, 0, 16, 0%, 

sub_pix = 2, 0, \- Be 

o . oO q; 

1 


sub_name = 
A couple of macros to build the privilege table. 


MACRO 
text_entry Ctext] = UPLIT(ZASCIC ZSTRING(text))%, 
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make _priv_table (table_name) = 
CITERAL priv_num =" (ZLENGTH -1)/2; 
OWN priv_table : VECTORCZLENGTH] 
INITIAL ( text_lentry(ZREMAINING) );2; 


The following set of macros are used to get all the information about 
a particular process. These macros produce: 
- A List of arguments for SFAOL, which are used to output 
varerees tee: The elements in this List are all prefixed 
w - 

2. A list of auxiliary data buffers. The elements are all 
pret iser with "AUX_' 

3. A GETUPI List which will store all the information requested, 
into the FAO_ elements (for 4-byte quantities), or else puts 
the data into the AUX_ buffers (for strings) and puts the final 
length into the FAO_ Buffer. 


OMPILETIME List_length = 0; 
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CRO 
find Longee Citem, length] = 
ZASSIGN(List_length, List_length + ZNUMBER(Length))%, 


bind_names (prefix) Citem, length] = 
rah aah item) = ZNAME(prefix, ‘List') CZNUMBER(List_length)/4] 
ZASSIGN(List_length, List_length + ZNUMBER(Length))2, 
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M § define _fao_items (list) = 
40 ” IGACList Length. 
4] 4 : find_length(ZEXPAND List, ZREMAINING) 
4 M OWN Tao_Cist : VECTORCZNUMBER(List_length)/4); 
4 M 0 ZASSIGNT List_Length. ) 
ve} 41 BIND bind_names(fao_. ZEXPAND List, ZREMAINING);%, 
4 i, ‘ define auxiliary_items (list) = 
4 M 0344 ZASSIGN(Lis Length. 9) 
4 iI 5 find_length(ZEXPAND List, ERERAINING) 
4 M § OWN Sux_Tist : VECTORCZNUMBER(List_length)/4); 
50 Mm 034 ZASSIGNTList_length, 0) ; 
51 48 BIND bind_names(aux_, ZEXPAND List, ZREMAINING);2, 
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define jpi_list vert 
OWN fer list 
ITIAL hy ef 


b tter reslen] = 
length, 


- 
ECTORC3 * (2LE Fyere/s? + 
pi (ZEXPAND 


1) 
List, ZREMAINING), 
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Define the FAO List. This List is ordered, so that all the data for 
3 persveuter cert to SHOWSWRITE_LINE occurs sequentially. y ee 


3 1 

: } 

3 1 an argument List is not needed; instead, the address of the first 

; ' piece of data is given, and the rest just naturally follow. 

3 4 : define_fao_items( 

3 & 1 ! Header information 

3 B 1 systime 4, } Susny (for current date) 
3 P 1 terminal, é. ' terminal name 

: B 1 username, ° ' username 

3 P 1 ! Default information 

3 p 1 id, 4, ' process ID 

; P 1 prcnam, 8, ! process name 

3 P 1 us 4, ' Ulc 

3 P 0375 1 pr 6, 4, ! base priority 

; i 6 1 defdev, 8, ! default device string 

3 P 8 77 «1 defdir, 4, ! default directory 

$ P % 1 ! Quota information 

3 P 0379 1 account, 8, ' account name 

3 P 8 80 1 cpulin, 8, ' cpu Limit 

3 P 0381 1 diolm, 4, ! direct i/o Limit 

3 P 0 S¢ 1 bytcnt, 4, ! byte count Limit 

3 P 03835 1 biolm, 4, ! buffered i/o Limit 

3 P rf: 1 tgcent, 4, ! timer oye entry Limit 

3 P 5 1 filcnt, 4, ' open file Limit 

3 be HY] 1 pagfilcnt, 4, ! paging file quota 

3 P 8 87 1 prclm, 4, ' subprocess quota 

3 P 0388 1 dfpfc, 4, ! default page fault cluster 
3 Pp 8 89 1 astcnt, 4, ! ast quota 

3 P 0390 1 enacnt 4, ' enque Limit 

: P0391 1 shrfitlm 4; i shared file Limit 

3 P 0 4 1 max etach, 4, ! maximum num of detached processes 
; P 0393 1 maxjobs, 4, ! maximum num of active jobs 
; P 0394 1 ! Accounting information 

3 P 0395 1 bufio 4, ' buffered i/o count 

3 P +] 1 wspeak, 4, ' peak working set 

3 P 0397 1 dirio, 4, ' direct i/o count 

3 p 38 1 virtpeak, 4, ' virtual memory peak 

3 P 03 1 popeti ts. 4, ' page fault count 

: P 0400 1 volumes, 4, ' count of mounted volumes 
3 P 0401 1 smageceunt, 4, ' Count of images executed 
3 B $86 1 cputim 4 ' cpu ste =-- later points to quad cputim 
3 rts : logintim, 85; ! Login time (quadword) 

: 309 05 1! 

s 310 06 1 ! Define the auxiliary buffers. This includes any strings that are returned, 
; 1 0 : as well as the process privileges. 

: ig Pp $9 1 define_auxiliary_items( 

; 314 P \ 1 terminal, 16, ' terminal name 

; 1? 4 at : username, 1 username ‘ 

: rcnam, ' process name 

: 13 pP 18 1 Gefdev. 284, ! default device string 

: 8 P 0414 1 account, 6, ' account name 

» BF P 0415 1 cpulia, 16, ! cpu limit 
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jobercent, 4, ' total sereres count 


Cpu ' Qua 
log ation, i gin time (quadword) 
procpriv, 5; i privilege bits (quadword) 


Now declare the SGETJP] item List, telling where the data is to go, and 
where the resultant string Lengths should be stored. 


define _jpiclist( 
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terminal, ° aux_terminal, fao_terminal, 
username, 2 aux_username, fao_username, 
pid, ac_pid, 0, 
prcnam, 14 aux_prcnam, fao _prcnam, 
vic 4, sac.ute 8. 
prib, le fao_pr b, 

account, 8, aux_account, fao_account, 
cpulim, 4, ao_cpulim, 0 
diolm, 2. fao_diolm, 0 
pytent. 4, fao_bytent, 
biolm, " fao_biolm, 

tacnt, s fears stone 

filcnt, , fao_filcnt, 0 
pagfilcnt, 4, ao_pagfilcnt, 0 
prclm, 2. fao_prclm, 

fpfc, 1, fao_dfpfc, 
astcnt, . fao_astcnt, 
enqcnt ‘ fao_enqcnt 
shrfillm, ‘ fao “shrfillm, 0 
maxdetach, ° fao_maxdetach, 
maxjobs, ‘4 fao_maxjobs, 

obprccnt, ° pe A om Aaa 0 

ufio 4, 0 
wspeak, . #20- “wspeak, 6 

irio, 4, fao_dirio, 
virtpeak, 4, fao_ -virtpeak, 0 
pagetits, 4, fao_page flts, 
volumes, 4, fao_volumes, 

smagqcount. 4, fao_imagecount, 
cputi 4, fao_cputim 

togintia, e. aux “logintim, 
procpriv, ° aux_procpriv, 3 


10 
SHOWPROCESS sB-Sep-1964 01:25:12 YAN=tt BLisg=52 ye O-742 


3 ;? 

3 H 1! Make a cable of all known privileges, containing the privilege name and 
; 6 ; : text describing it. 

3 é } H eeeee THE PRIVILEGES MUST BE IN BIT NUMBER ORDER teeee 

3 P 0464 1 make_priv_table (priv, 

3 » P 0465 1 cmkrnl, ‘may change mode to kernel’, 

ov Pp $8 1 cmexec, *may chenge mode to exec 

; i P 0467 1 sysnam, ‘may insert in system logical name table’, 
3; 37 P 0468 1 grpnan. ‘may insert in group logical name table’, 
: 374 e $? 1 allspool, ‘may allocate spooled device’, 

; 375 Pp 9 1 detach, ‘may create detached processes’, 

: 76 P0471 1 diagnose, ‘may qi apnose devices’, 

3 37 Pp i 1 log_io, ‘may do op"ces /o', 

; a P0475 (1 group, ‘may affect other processes in same group’, 
3 P0474 1 acnt, ‘may suppress accounting message’, 

; 380 P 0475 1 prmceb, "may create permanent common event clusters’, 
; 381 P 78 1 prmmbx, ‘may create permanent mailbox’, 

3 Hf P 0477 1 pSwapm, ‘may change process swap mode’, 

; 38 Pp 4 1 altpri, ‘may set any priority value’, 

3 tf P 0479 1 setprv, ‘may set any privilege bit’, 

3 5 P 0480 1 tmpmbx, ‘may create temporary mailbox’, 

3 Hy] 6 Be 1: world, ‘may affect other processes in the world’, 
; P ¢ 1 mount, ‘may execute mount acp function’, 

; 388 P 04 1 oper, ‘operator privilege’, 

; 389 P Bese 1 exquota, ‘may exceede quota’, 

; 390 Pp 5 1 netmbx, ‘may create network device’, 

; 391 P pees 1 volpro, *may override volume protection’, 

3 4 P ot $4 1 phy. io. ‘may do y ys i/o’, 

; #39 P 04 1 gchk, ‘may make bug check log entries’, 

; 394 P 0489 1 prmgbl, ‘may create permanent global sections’, 

; 395 P Reoe 1 sysgbl, ‘may create system wide global sections’, 
; 39% P 0491 1 ptnmap, ‘may map to specific physical pages’, 

3s Ser P Be38 1 shmem, ‘may create/delete objects in shared memory’, 
; 398 P 0495 1 sysprv, ‘may access objects via system protection’, 
; 399 P Bee 1 bypass, "bypasses UIC checking’, 

; 400 P 0495 1 syslck, "may lock system wide resources’, 

3; 401 P 0496 1 share, *may assign channels to non-shared device’, 
; 40 P 0497 1 upgrade, *may upgrade classification’, 

; 40 P Rees 1 downgrade, ‘may downgrade G.eset i ication. 

; 404 P 1 grpprv ‘group access via system protection’, 

; 405 P 0500 1 readall, ‘may read anything as the owner’, 

3 $06 P 0501 1 tmpjnt, ‘may create ron shel ournals', 

3: 6 P 208 1 prajnl, ‘may create permanent journals’ 

; 4 503 1 security, ‘may perform security functions’); 

: 2% 208 | 

+ 411 208 1! The tol Loving GLOBAL declarations are a temporary means of incorporatin 
3 $i¢ 23 1 ! SHOW PROCESS/CONTINUOUS (aka INFO) into this version of SHOW. It is no 
3 rt 238 ! my intention for it to continue in this way. (Famous last words 

3; «6415 510 1 GLOBAL 

3 oi8 23 1 proc_a_desc : saey Ocet gscSe g-bind. 

3: 41 \¢ 1 proc_z_mame : VECTOR(15 BYTE); 

; 4618 515 1 proc_|_pid; 
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FORWARD ROUTINE 
showSprosess : NOVALUE, 
check privilege : NOVALUE, 
display_data : NOVALUE, 
display_tree : NOVALUE, 
make_tree, 
next process : NOVALUE, 
get_devall, 
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get_rights_size, 
get_rights; 


EXTERNAL ROUTINE 
tht eet aed : NOVALUE, 
resent, 
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1 
1 cli 

1 cli$get_value, 

1 exeSepid_to_ipid : CVTPID ADDRESSING MODE (GENERAL), 
1 exeSepid_to_pcb : CVTPID ADDRESSING_MODE (GENERAL), 
1 LibSget_vm, 

1 Lib$free_vm, 

1 Lib$Scvt_ftb, 

1 sch$iolockr : IOLOCK, 

1 sch$iounlock : IOLOCK, 

1 ioc$scan_iodb : IOSCAN, 

1 joc$cvt_devnam : CVTDEV, 

1 showSprcallreg, 

: showSwrite_line : NOVALUE; 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 


EXTERNAL 


EXTERNAL LITERAL 
sch$c_swppix : UNSIGNED (6); ! A short Literal for the swapper pix 


BUILTIN SUBM; 


Re NINN 
SOBNOU EWN O OONO UE WN 0 0@ MEW OO OONOUS 


trv alah ah sh ah ah ab oh tb bth th oh oh ah oh oh ah ah ah ah ah ah ah ah ah ah al al 


PPAAAAG NI BE EEL EEE 


SQOCCCSOOOCOOOOOSOOOOOOOOoOOoOoOoOOoOOo 


ated ol 


aS eee eee ee : ; 


| dD 10 ‘ok, G 8 
vou-000 VenSep-198e 2:69:08 — ECKTUtL’SRESsnowbnoc 0381 hen 


a1 


; & 6) GLOBAL ROUTINE showSprocess : NOVALUE = ‘ 
; & 86 BEGIN i 
3 4 6 e 
3 £38 $8 ! This H the main routine for he SHOW PROCESS function. ALL the command : 
; 476 6 ' qualifiers are perhored and a SGETJPIW is issued to get the information. F 
; 475 68 i If the /CONT qual tier is invoked, the control is transferred to that i 
3 of § : portion of SHOW. Otherwise, call the data-display routine. ; 
3 of 9 feoe ; 
; 8 18 § coca 
: 481 74 ourpid, ! This process's PID F 
3; 6 § 75 pid, ! PID of requested process ; 
3; 4 6 scratch : REF VECTOR, ' Scratch area 3 
; 4 7 flags : = 4 ! Flags longword H 
; : 5 2f8 procname : LockEdsc$c_s_bin); ! Process descriptor : 
; 48 580 ! Check to make sure that the user has the correct privileges to run 3 
3 ret ; 1 } this image. i 
; 4690 5 5 check_privilege (); 3 
: £93 3 5 2! 
; 49 5 ! Collect the qualifiers. If no qualifiers were present, then show that only 3 
3 $3¢ : 5 : the default stuff should be displayed. : 
3 rh 589 flags(proc$v_def] = NOT( 3 
: 49 590 4 (Flags procéu_quot = cli$present(ZASCID ‘QUOTAS')) 3 
; 498 591 4&4 OR (flagslproc$v_acc = cli$present(ZASCID ‘ACCOUNTING')) 3 
; 499 235 4 OR (flagsLproc$v_priv] = cli$present(ZASCID ‘PRIVILEGES')) 3 
; 500 593 4 OR (flagslproc$v_mem = cli$present(ZASCID ‘MEMORY')) 3 
3 301 594 4 OR (flagslproc$v_sub = cli$present(ZASCID ‘SUBPROCESSES’)) : 
3 4 595 OR (flags(proc$v_cont] = cliS$present(ZASCID ‘CONTINUOUS'))); 3 
Rm BS, reat 
: 505 : ; Get the current process PID. : 
; 209 BEGIN : 
; 508 LOCAL 3 
; 509 status, 3 
; 510 josb : VECTOR(4 yond). 3 
3 511 ist : SBBLOCKCI6); 

3 \ Listl 0, 0, 16, = 4; 

; $1 Listl 2, 0. 16, = jpi$_pid; 

3: 5146 list{ 4, 0, 32, = ourpid; 

: $15 tisel 8: 0. $2: 0) = 6: 

3 ig Listli2, 0, = 0; 

> 51 4 IF (status = $GETJPIW(ITMLST = List, 

; 518 4 I0SB = iosb)) 

3; 64519 THEN status = .iosb(0); 

3 0 IF NOT .status 

3 ; THEN (SIGNAL(.status); RETURN); 

. ' 

; “ ! If @ process name was specified, convert it to a PID. 


1$-Bep-1986 1:25:12 yaKett Bling 32 v4.00763 


' 
Bis T ageastore name) AE y be ic d ipt 

; e a dynamic descriptor 
Linc tBger.vatuetiasciD *PROCESS', procname) os ’ r 


hig 

List€ 46, 0, 32, 0) = pid; 

IF (status = $eePJpiut (ITALST = List, 
PRCNAM = he 4 


10S8 = iosb)) 
THEN status = .iosb(0); 
if NOT .status 
He (SIGNAL(.status); RETURN); 


If no process name, then check for a PID. If the PID was specified, 
;convert the ASCII representation to a number. 


if cl iSget_value EAscID *IDENTIFICATION', procname) 
BEGIN 
LO 


CAL 
josb : VECTORE4 dD), 
List : SBBLOCKL ttey. 
status; 


If NOT (status = LSBSeut,_SUbt .precnenel decee. Length] 
sprognene dsc$a “pointers, 
p 


GNAL (show$_invquaval, ! Qualifier invalid 
2. i with 2 FAO params: 
er esnans ! the ID value given 
SCID ‘[DENTIFICATION'); ! and the /ID qualifier 
no 


! Make sure we get the extended pid, in case the user has used the 
short form. 


list g. - 16, = 4; 

listl 2, 0, 16, = jpi$_pid; 
ListL 4, 0, 32, = pid; 

list . » we = 5; 
Listli2, 0, = Q; 


10SB = job) 
THEN status = .iosb[0); 


If NOT .status 
THEN 


IF (status = SGETJPIWC(ITMLST = List, 
PIDADR id 


31 


(6) 


=e 


mth 


ESS a0 


| 
vou-000. 1easep=198e f2:88:46 ERC TUT SR SshouPRae 38:1 treet at 


SIGNAL (.status); 
A as 


-pid EQL 0 


FASLSSSLEALAS 


N pid = .ourpid; 


oO 
w 


' 
! If the /ALL qualifier is present, then turn on the proper bits. 
! If the aid is for the current process, then allow memory 

: and subprocesses too. 

i 

T 


F cli$present(ZASCID ‘ALL*) 
HEN 


BEGIN 
flags(proc$v_def] = flags thet hors i 
= flags 
= flags 

= true; 


proc$v_acc 
proc$v_priv] 


Sees S eee eS sess 


IF .pid EQL .ourpid 
THEN’ . 


Sesssseseceeeeeeeeeeel 


flags(proc$v_mem] = flags(proc$v_sub] 
END: = true; 


SELF 


Now for some further checks. If /MEMORY or /SUBPROCESSES was 
spec tt tee. and the requested process is not the current process, 
then signal that it can't be done. 


F .ourpid NEQ opie 
(.f castor v.mem) OR .fla sCproc$v_sub)) 
HEN (SI (show$S_confqual); RETURN); 


ee ee ed ed ed 
NOUS WN OOOO ew Cc 


—_ 


i Obtain the data for the requested process. 


dd ad dd ed 
——are =f 


~-@o 
nm 
a 
— 
z 


stetus. 
osb : VECTOR 


ren status = .iosb{0); 


T .status 
THEN (SIGNAL(.status); RETURN); 
id = .fao_pid; 


4 
4 
ND; 
END; 
' 
! If PID 's still zero, then no process was specified, i.e. the 
i process in question is the current process. So, use the current 
: process PID. 
if 
HE 
4 
4 
| 


PAAEAAAAAAAAAAA AAA AA AAAA AAAS AO 
NNN NNN SSNS 


—O ODO NEW — O ONO UE WO 


WVPononononononononen 


_Suwpngcess pee gee 


764 2 display_data (.scratch, flags, .ourpid); 
RETURN; 


oon 
~~ 
wr 


INFO#250 1 :0687 
Referenced LOCAL symbol bURPID is probably not initialized 
TITLE 
- IDENT 
-PSECT 
00 4 f 48 4D 43 P.AAA: .ASCII 
64 6F 6D +4 65 67 6€ $ 6 7 1 60 008 P.A ASCII 
00 6c 65 6€ 6 6F 74 
43 4 45 4D 4 P.AAC: .ASCII 
64 6F 6D 20 65 67 43 6 6 7 1 oA ASCII 
6 5 6 F 74 5 
4D 41 3 59 P.AAE: .ASCII 
38 9 20 74 72 #65 69 $1 $8 C P.AAF ASCII 
6C 61 69 67 6F 6 $0 4 58 
65 6C 4 20 65 g 61 ; A 
4D 41 3 3 47 4 P.AAG: .ASCII 
20 6€ 69 20 74 72 65 6— 69 2 61 6D 26 7C P.AAH: .ASCII 


AX-11 Blisg-32 V4. 50-288 
CLIUTL.SRCJSHOWPROC .B32;1 


q ' 

3 f If /CONTINUOUS was specified, then transfer control 

; 7 if .ft meets cont) 

3 7 thet vi 

: 2 , rank wid 

3 proc. 2 

: 66 74 proc_e “Gosc aictucteng th]_= fao_prcnam; 

; oe 74 proc ade “descldsc$a “pointer) = auk_prcnam; 

3 74 ao sprcnén, aux_prcnam, proc_z_name); 

3 ? 4 prec a cc cont display); 

3 4 

3 § 745 END; 

1% ae 

3 6955 74 : Grab a large chunk of memory in which to put data. The present 
3 6 74 ; “el rithm is to grab 64 pages, which should be more than enough, 
3 és ? at least it has been so far. 

a. & § 7 § BEGIN 

; 660 7 REGISTER status; 

; 661 7546 i NOT (status Pads a = y atta scratch)) 

3 $66 755 HEN CS ISHALC, st tet ys): RETUR 

; 66 7 $ scratch(0O) = 64* ! Put the size of the scratch area 
; 6646 7 ! in the first longword 

: 665 P38 END; 

: gee ; 

3 oo8 761 ! 

F} 76 ' Now to print all the stuff. 

; 670 76 : 

; 671 

: 67 


SHOWPROCESS 
\v04-000\ 


SPLITS.NOWRT ,NOEXE ,2 


<6>\CMKRNL \<0> 
<25>\may change mode to kernel \<0><0> 


ps | A, oteden ae 
<23>\may change mode to exec\ 


<6>\SYSNAM\<0> 
\'may insert in system logical name table\ 


ye Sern 
\émay insert in group logical name table- 


(6) 


_ 


—_ 


15 
Page 
(6) 
= OF af | 
TUT Sat Ssioubnee . 68S: 
6 sep-196 P2i6oine — ECETUT esReSshoubRO ; 
1enSep-1986 $2: ; 
vanes \<0><0><0> device\ F 
? avaas slisatne soncted ; 
t 58 OS 4 P.AAL: “ASEH <27>\nay. al 0 
es ft 6S at ee ft OB 8 PraAJ: “ASC may create detached processes é 
63 69 c 6 1 4 I] <6>\D create de : 
65 GF 6 BF : ASC 9>\may : 
mr oS ot ‘ ; ee 90 90006 Praac: “ASCII < 
2 5 4) 5 ¢ 6 es <0> <0> : | 
69 "6 " 3 é 0 ? $3 83 1 F ASCII < B\BIAGNOSE\<O><Ox<07 ; 
g 3 oF #3 f : 0 Fa PAAR: “ABELL <20>\nay diagno é 
° . | 
83 ve 1 49 44 100 P.AAN: .A 6>\L0G6_10\<0> ical i/o\<0> : 
47 4 D F Cll < do log : | 
45 53 4F 4E 7 2 $0 if P.AAO: Aeelt <18>\may same grou\ ; 
6E 0 47 4 5>\G ther p 3 
oF 49 OF 1 6D 12F ASCII < affect o : 
wares: Hee Bch: ASEH Gas [a 
67 6F 6C 4F D 1xC P. ><0> e\ é 
Hee ea ee 1 san 38H Bia cece canta sad hed 
és 3 es dum & 2a 190 PiAAT: CASELT <Bi>\nay = 
65 33 6 00 41 04 P.AAT: . tclust\ ; | 
75 «6F 09 54 3 i 6 HY 0170 ene anton aesmenedl common even | 
79 7 % & 13 & § ; 0190 Series +} \smay create : 
ooo ee 45 43 4p 52 i 1 toma o> ele We 
5 79 6 rs\< > ailbox : | 
5 7% 61 a 3 ee : et ¢3 "8 3188 od tdi <ES CPi <0> permanent m | 
6 F 3 ; 1C4 P.A -ASCII ; 
6D 6C 6 0 0 Bt ss ; | 
eae ETUE ED | Fy om al ies, —— on re 
6E 0 OQOIEA AY: ASC <28>\may cha 3 
61 6 ; 4 GF 65 6 6 JEC P.AAY: ASCII ; 
5 70 29 $3 He 61 6D 2 7 53 0 ve OIF P.AAZ: nal pa ashes ; | 
66 9% oF & 8 00 rH é 20 3 $f Se bs 0605 atta} FR, Reg i SA | 
61 § 0 73 00 69 1¢ PLABB: IASCLT <> Nn 0><0> 
4 6 ABB: .A \<0> ilege bit\< 3 
70 20 65 4 3 61 4 46C 41 A ; 1C P. >\SETPRV ny privileg : 
6F qe 6F 30 1 6D 1 0 ASCII < \may set any ; 
65 64 49 9 F 69 P.ABC: . I <25>\m <0> : 
29 tt i ‘ t Q i 53 ig f P.ABD: .ASCI \TMPMBX\<0> mporary mailbox\ : 
7 to & % St a a8 ; ; 29 > 6 % 69 $C P.ABE ASC <28>\may create te | 
00 4 6 5 69 Og ~ABF: 0A rid\ ; 
D 54 P. > the wo : 
OH & . i i i : ! a 8 ASC SWoR 0 <0><0> processes in ; 
1 BG: . \"may ‘ 
61 6 6 6 p.A ASCII ; 
5 7% 2 $3 } 61 6D 2 GF ; C P.ABH — function\<0> : 
00 98 oF & & o at 3h 38 a >\MOUNT\< mount acp ; 
wa ERELERE Broa: ARENT sigur : 
r ae 4D PLABJ: <A 
Ff 7 of BC > 
se 69 fo $8 os . > : é3 2 i % i DA ASCII <4>\OPER\<0><0><0 
3 1 20 i 0090 P.ABK: 
r 69 9% 63 GE PS 66 20 0 & 52 45 50 OF 6 
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<5>\SHMEM\<0><0> 


69 76 69 72 70 20 72 6F 74 61 7 i é of : P.ABL: .ASCII <18>\operator privilege\<0> 
4 4 OF 4 F8 P.ABM: .ASCII <7>\EXQUOTA\ 
75 71 20 65 64 65 65 é3 8 65 ; ! ? 1 : P.ABN: .ASCII <17>\may exceede quota\<0><0> 
42 4 4 4E 4 P.ABO: .ASCII <6>\NETMBX\<0> 
7% 65 0 65 74 61 43 if 6 iH 1 6D 1C P.ABP: .ASCII “333% a t twork ice\<0><0> 
ob i & sad rf 3 ee fe Y $8 P.ABQ ASCII < ptm er SS aig 
. : ° > 
H+ 28 ? ¢ 69 ve i § f A + d 6D rt P.ABR: .ASCII <80>\moy override volume protection\<0> 
5 
4F 49 SF 59 P.ABS: .ASCII <6>\PHY_IO\<0> 
61 63 69 73 79 68 70 $8 6F 64 20 ? § P.ABT: .ASCII <19>\may do physical i/o\ 
00 4B 48 33 47 4 P.ABU: .ASCII <6>\BUGCHK\<0> 
63 28 $7 ie, $ 20 $3 $8 ¢ ? $0 4 6 P.ABV: .ASCII <30>\may make bug check log entries\<0> 
4C 42 47 4D P.AB eASCII <6>\PRMGBL\<0> 
ie $3 iS 29 63 iG $ e3 i ; 2 Y ? P.ABX: .ASCII \Smay create permanent global sections\<0> 
Boe oF & p ASCII <0><0> | 
09 4C 4 3 P.ABY: <ASCII <6>\SYSGBL\<0> 
ht Hs 3 20 63 He 29 3 Ue $3 43 ; P.ABZ: .ASCII veger create system wide global sections- 
6 F 69 6 
5 70 73 20 6F 74 20 ab : éD ; PIACB: ASEH Peap seo 40 2 ific physical \<0> 
ACB: . may map to s al pa 
$3 be et 6s 69 73 99 68 90 29 69 nach att is | piece cea 
e3 


P.ACC: .ASCII E 
P.ACD: .ASCII \*may create/delete objects in shared mem\ 


IRINA EE = -- eS See RA SS” 
DAFORIHOM MO” MOSES DO POT TVOOP DAP SOO RUS Oo ROR 


ASCII \e\<0><0><0> 
P.ACM: ASCII <7>\UPGRADE\ 
P.ACN: .ASCII <26>\may upgrade classification\<0> 


SS Sn Se AS MO Oe MURAD HOO OT OE ne OB tee uti ein ete 
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NAAODAAA ES NAMA NIMS NNAWMIA APE APOAEAPGOUN NOU SOUL 


SSSSSFSEPERERERRERRERRRERERERROR RSS Ssessscs 


SIMA WNNIMH SWVLSLOAHL NVM COVMLNOVML VS 


4 
8 é 
09 4 8 | 
6C 65 ef $3 74 61 is 6 ? 4 § 
5 
Q : -ASCII Mery cee 
5 P.ACE: .ASCII <6>\SYSPRV\<0> 
; 6 P.ACF: .ASCII \(may access objects via system protectio\ 
4 bi 5 
0 4 ASCII \n\<0><0><0> 
1 4 498 P.ACG: .ASCII pth (are dbo 
, é r P.ACH: .ASCII <21>\bypasses UIC checking\<0><0> 
f 8 4B8 P.ACI: .ASCII <6>\SYSLCK\<0> 
; 3 ; r P.ACJ: .ASCII <350>\may lock system wide resources\<0> 
4 
4EQ P.ACK: .ASCII <5>\SHARE\<0><0> 
é re P.ACL: .ASCII \(may assign channels to non-shared devic\ 
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P.ADB: 
Pp . 


be $2i6o:de §— EeTTUT SRE Ssnowbnoe 05:1 


{ <9>\ DOWNGRADE \<0><0> 
<28>\may downgrade classification\<0> 


I <0><0> 
i <6>\GRPPRV\<0> 
<7>\READALL\ 


I 
I <30>\may read anything as the owner\<0> 


I] <6>\TMPJNL\<0> 
II <29>\may create temporary journals\<0> 


<0> 
<6>\PRMJNL\<0> 
<29>\may create permanent journals\<0> 


ASCII <Q> 
eASCII <B> SECURITY\<O><0><0> 
ASCII <30>\may perform security functions\<0> 


ASCII \QURTAS y<0><0> 
ONG 17694728 
ADDRESS P.ADB 
ASCII VAC COUNT ING\<O><0> 
eLONG 17694730 
eADDRESS P.ADD 
ASCII wee 
eLONG 17694 
ADDRESS P.ADF 
eASCII \MEMORY\<0><0> 
eLONG 17694726 
eADDRESS P.ADH 
ASCII VSURPROCESSES\ 
eLONG 176947 
eADDRESS P.ADJ 
ASCII PER] SefOUS \<O><O> 
eLONG 1769473 
eADDRESS P.ADL 
ASCII yenorss \<0> 
«LONG 17694 
-ADDRESS P.ADN 
ASCII \IDENTIFICATION\<0><0> 
eLONG 17694734 
ADDRESS P.ADP 
eASCII \N\IDENTIFICATION\<0><0> 
eLONG 17694734 
ADDRESS P.ADR 
eASCII] N\A NE > 
eLONG 17694723 


\"group access via system protection\<0> 


Pee Se Se Se Se Se Se Ge Se Se Se Se Se Se Se Ge Se Fe Se Ge Ge Se Se Se Se Se Se Se Se Se Se Se Se Se Se Be Se Se Se Se Se Be Se Ge Be Se Ge Be Se Se Se Be Be Se Se Se 


Kk 10 
16-Sep-1984 01:25:1 AX=11 Bliss-32 V4.0-74 
13-398-198 9:69:48 CLIUTL. SRC ISHOWPROC .839; 1 
00000000" O06EC «ADDRESS P.ADT 
-PSECT SOWNS,NOEXE,2 
00000 FAO_LIST: . een 
QO0AO AUX_LIST: 
-BL 364 
03100008 0020C JPI_LIST: 


es «LONG 52232200 


00000000" 
00000000' 


~ADDRESS AUX TERMINAL, FAO_TERMINAL 

> ide S RNAME F AO_USERNAME 

LONG 51970055 laa at 

“ADDRESS FAQ PID 

.LONG 0, 52166672 

“ADDRESS Aux PRCNAM, FAO_PRCNAM 
50593796 


ORES FAO_UIC 

“LONG 0 Bosh 473 

“ADDRESS Fag a 

<LONG 0, 33751048 

ADDRESS Aux_ACCOUNT, FAO_ACCOUNT 


ADDRESS FA By M 
“LONG 0 Broce se 


pF Ih8 
000000° 


03090001 


0203000 
00000000" 


Oooooowoco 


03130002 


esha: SAD Ress FA r; NT 
03100002 “LONG. 0, S138 22 
ro tesstiag (8 
03140002 ¥ 0 Brea 370 


HODES FAO_FILCNT 
04140004 “LON 


04080002 


SOOOCoOoOOSOSoOSoOSoOSoOSoOSoOes 


04060001 ; 0 

omeaten SADDRESS saatgenlss 
oe LONG 0432 +t a 
02100002 . g 10 


020€0002 
020F 0002 


1 
“ADDRESS FAO _MAXDETACH 
“LONG 0 eetTad 
SADDRESS FAO MAXJOBS 


031€0002 
040€0004 
02010004 


RAWOR PSOEA BOM FOS EADOR ROBE A BOO POW ROWOO ROD KOO RADO 


SOoSSSSOSSOSSOSOSOOSOSOSOSOSOSSOSOSSOSOSOSSSSSSSOOOOOOOOOOOOOOoO 


 ORESS “Aus 35 PRCCNT 
’ 0. 67898800 


“ADDRESS fAad_BUF 
“LONG 0 Beet ooe2 
[ADDRESS FAO_WSPEAK 


10 


vor-000 VenSep-19be fei89see Let Tun saeSsnowPRac.a33;1 
04080004 LONG 0, 67829764 
sangeet: “LONG 20, SSBRERG 
0400004 LONG 0 


; 6776422 
ADDRESS Fag. Dage tL TS 
-ADDRESS FAO_¥ UES 
ORES tadetnd SCount 
“LONG 0 $7567 000 
-ADDRESS FA TIM 


, 
{ 
“ADDRESS, uy. LOGIiNTIN 
90 
A8 
58 
: 
i 


02050004 
041A0004 
04070004 
02060008 
02040008 


G 4 
“ADDRESS AUX_PROCPRIV 


PRIV_TABLE : 
-ADDRESS P.AAA, P.AAB, P-AAC, P.AAD, P.AAE, = 


“ * 00 P.AAF, P.AAG, P.AAH, P.AAI, P.AAJ, P. 

; ’ ° 88 P.AAL, P.AAM, P.AAN, P.AAO, P.AAP, P. 

: * 3 P.AAR, P.AAS, P.AAT, P.AAU, P.AAV, P. 

; ° * 003 P.AAX, P.AAY, P.AAZ, P.ABA, P.ABB, P. 

, * 004 P.ABD, P.ABE, P.ABF, P.ABG, P.ABH, P. 

: 0 . 0 ' 04 P.ABJ, P.ABK, P.ABL, P.ABM, P.ABN, £ 

0 . ; * 004 P.ABP, P.ABQ, P.ABR, P.ABS, P.ABT, P. 

: 0 o 0 * 004 P.ABV, P.ABW, P.ABX, P.ABY, P.ABZ, P. 

: 0000000' 00000' 00468 P.ACB, P.ACC, P.ACD, P.ACE, P.ACF, P. 

9000000 00000000" 90498 PACN: P-ACO, P-ACP, PLACG, PLACR’ P- 

00000000° 00000000' 90000000" 00000000" 00000000° 00000000" 00480 ait PLACU, P.ACV, P.ACW, P.ACKX. P. 
004¢8 -BLKB 4 


-PSECT $GLOBALS$,NOEXE,2 
00000 PROC_A_DESC:: 
00008 PROC_2_NAME: : 
-BLKB 


BLK 
8 15 
00017 “BLKB 1 
00018 PROC_L_PID:: 
-BLKB 4 
FAO_SYSTIME= FAO_LIST 
FAO” TERMINAL= FAO-LIST+4 
F AO-USERNAME= FAO-LIST #12 
FAO"PID= FAO"LIST+ 
FAO” PRCNAM= FAO-LIST#+24 
FAO-UIC= FAOLIST#3¢ 
FAO" PRIB= FAO-LIST+ 
FAO” DEFDEV= FAO“LIST+4 
FAO-DEFDIR= FAO“LIST+4 
FAQ” ACCOUNT= FAO“LIST#5 
FAO” CPULIM= FAO“LIST+6 
FAO"DIOLM= FAO“LIST +6 
FAO"BYTCNT= FAO-LIST* 


tetatatal tt $$$ 
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seeeeeeeeeeen 
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10 
-$ep-1984 01:25:17 AX-11 Bliss-32 V4.0-74 
~3007 138% 93:83:12 YetiuT sR C}sHOWPROC.839; 
HO-Raewt FAO_LIST#76 
FAO-TQ FAO-LIST+ 
FAO-FILCNT FAO-LIST+84 
EAO“PAGF ILCNT= FAO-LIST+ 
FAO-PRCLI FAO-LIST+ 
F AO-DF PF C= FAN-LIST#9 
FAO-ASTCNT= FAO-LIST+#100 
FAO-ENQCNT= FAO-LIST+#+104 
FAO- NRE TLUMS FAO-LIST+1 
F AO" MAXDE TACH= FAO-LIST#11 
FAO- AXJOBS= FAO-LIST#11 
FAO~BUF 10= FAO-LIST+1 
FAO" WSPEAK= FAO-LIST+#+124 
FAO-DIRIO= FAO-LIST+1 : 
FAO-VIRTPEAK= FAO-LIST+1 
FAO-PAGEFLTS= FAO-LIST+1 6 
F AO~ VOLUME S= FAO-LIST#+14 
FAQ IMAGE COUNT = FAO-LIST#144 
FAQ. CPUTIM= FAO-LIST+148 
FAO-LOGIN TIM= FAO-LIST#152 
AUX" TERMINAL= AUX=LIST 
AUX“USERNAME= AUXLIST+1 
AUX" PRCNAM= AUX“LIST+3 
AUX~DEFDEV= AUX LIST+4 
AUX"ACCOUNT= AUX-LIST+304 
AUX" CPUL IM= AUX“LIST+ @0 
AUX" JOBPRCCNT= AUX“LIST+ 
AUX CPUT IM= AUX"LIST+34 
AUX"LOGINT IM= AUX"LIST+34 
AUX~PROCPRIV= AUX“LIST+ 56 
.EXTRN PROC_CONT DISPLAY 
«EXTRN CLISPRESERT, CLISGET_VALUE 
-EXTRN EXESEPID_TO_IPID 
-EXTRN EXESEPID-T0-PCB 
SEXTRN LIBSGET_OM, LIBSFREE_VM 
“EXTRN LIBSCVT"HTB, SCHSIOL OCKR 
-EXTRN SCHSIOURNLOCK, IOCSSCAN_10D8 
SEXTRN LOcscvt DEVNAM SHOWSPREALEREG 
SEXTRN SHOWSWRITE_LINE 
“EXTRN CTLSGL_PCB; SCHSGL_CURPCB 
-EXTRN IOCSGL-DEVLIST, SC ESCA. LOCALSB 
-EXTRN PIOSGT-DDSTRING 
-EXTRN SCHSGLMAXPIX, SCHSGL_PIXWIDTH 
-EXTRN SCHSGL-PCBVEC, SCHSC_SWPPIX 
"EXTRN SYSS$GETUPIW 
<PSECT S$CODES,NOWRT,2 
ENTRY 
MOVAB LIBESIGNAL R11 
MOVAB CLISGET_VALUE, R10 
MOVAB FAO PIDT. 
MOVAB SYSSGETJPIW, RB 
MOVAB P.ADA, R? 
MOV cL SPR PRESENT, R6 
SUBL2 #52, 


31 


roe 


sriguengocess., Save R2,R3,R4,R5,R6,R7,.R8,R9,-; 0561” 
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AX-11 Bliss-32 V4.0-7 
CLIUTL.SRC SHOWPROC .85 31 


+ CHECK PRIVILEGE 
40 py 
R #1, FLAGS 


pc 
a. ¢ ISPRESENT 
is. #1, FLAGS 


P.ADE 
vi, C sa pag *¥ 
RO, is, #1, FLAGS 


-ADG 
#1, CLISPRESENT 
° Rieke #1, FLAGS 


DI 
5 ISPRESENT 
» #1, FLAGS 


t ISPRESENT 
» #1, FLAGS+1 


al 


D 
#34471936, PROCNAME 
PROCNAME +4 

PROCNAME 


ISGET_VALUE 


sHowPROcess iScbeortgee 1:25:12 yaKett Blige 32 y4.00763 | 


— 


£h 52 €9 000F7 I$: Lac Srachde 4$ 
36 AE SF OOOFA 28: SHAB 
00 F OOOFD Push 
ga : FB 101 CALL . ETE 
D : 1 BLBC 
8 AE 9F 00107 PUSHAB PI 
4 AE po 10A PUSHL PROCNAM 
7 4 AE 3¢ 001 MOVZWL mt -(SP) 
000000006 FB 001 | CALLS a YB tal _HTB 
DO 0011 MOVL 
1 118 BLBS STATUS. 
0049 C? OF 001 PUSHAB P.ADQ 
AE F 001 PUSHAB PROCNAME 
DD 001 PUSHL # 
0078132A 8F DD 001 PUSHL #7869226 
68 4 FB CALLS #4, LIBSSIGNAL 
1 AE 03190004 af 0 1 3$ MOV 451970052, bist 
AE 7C 001 CLRQ—s_ LISf+ 
7E 7€ 00141 CLRQ = = (SP) 
aC AE 9F 00143 PUSHAB 1058 
AE OF 146 PUSHAB LIST 
7E 04 0014 CLRL 0s = (SP) 
1¢ «AE OOF 00148 PUSHAB PID 
7E D4 0014 CLRL = = (SP) 
68 FB 0015 CALLS #7, SYSSGETUPIW 
3¢ 9 dO 0015 MOVL RO, STATUS 
Q F 156 LBC ~—- STATUS tg 
2 24 «COA ¢ 159 MOVZWL 10SB, STATUS 
04 E8 0015D BLBS STATUS, 5$ 
DD 160 4$: PUSHL 5 
A 11 0016 BRB 
08 AE 05 00164 5$: TSTL PID 
05 12 00167 BNEG = 6$ 
08 AE 04 AE 00 00169 MOVL OURPID, PID 
OOAC C? OF 1g 6$ PUSHAB P. 
66 1 Fe 1 CALLS #1, CLISPRESENT 
OF 0 ; 17 BLBC 
10 AE F 88 00178 BIsB2 #15, FLAGS 
04 AE 08 AE D4 ze cMPL PID. OURPID 
10 AE 0 as 1 3 BISB2 #48, FLAGS 
08 AE 06 A p 187 7$: CMPL OURPID, PID 
1 18C BEQL $ 
05 10. AE 4 €0 001 BBS #4, FLAGS, 8$ 
08 10 AE 5 €1 0019 BBC Ht ELAGS, 10$ 
007812€2 f bp 19 gs: PUSHL be 
5 7C OO1A0 10$: = CLRO aie 
2 ar OF OOIA PUSHAB 
O1F 6 OF OO1A PUSHAB JPI_LIST 
E p4 1A CLRL = = (SP) 
1¢ «AE OOF OO1AB PUSHAB P D 
re D4 OOTA CLRL oe 
68 FB 1B CALLS Syss661 PIM 
48 0 €9 001B BLBC oar 


11 

S ESS 1b-5¢ -1 :25:1 AX-11 Bliss-32 V4.0-7 P 3 
iret ae Haaets a et a a ib hg Pec ee ae 5 
50 2 «COA 186 MOVZWL 10SB8, STATUS 3 0727. 

44 55 ; 1BA BLBC TATUS 128 : 0728 

08 AE 69 DO 001 MOVL FAO_PID, 1p : 0730. 

2 11 ar E9 O01C BLBC FLAGS+1. 11$ ; 0736) 

0000' cf 6 1¢ FAO_PID, PROC_L_PID 3 0739. 

pe 06 =A 1CA MOVAB FAO_PRCNAM, RO 3 0740) 

CF 5 ce RO, PROC_A_DESC : 

conor cr 5 Wane fe ORE A HE BRIE RINSE PRIA ARR toc 2 mane 
e v.46, Py } 

900000006 66 00 FB TE CALLS #0, ~PROC_CONT_DISPLAY : : 748 

AE 9F OO1EB 11S: PUSHAB SCRATCH : 0754) 

ee es Rae ee | 
4 AE 9F OO1F4 PUSHAB p : 
000000006 90 FB OO1F7 CALLS #2, LIBSGET_VM : | 
E FE BLBS STATUS, 14$ : 
DD 0 12$:  PUSHL STATUS + 0755) 
68 1 FB 00g05 138: CALLS AT, LIBSSIGNAL ; | 
OC BE 8000 8F e 6 $9 148:  MOVZWL #32768, @SCRATCH + 0756) 
04 AE DD 00200 PUSHL  OURPID > 0764. 
14 AE 9F 00 19 PUSHAB FLAGS ; | 
146 AE OD 0021 PUSHL SCRATCH ; | 

0000v CF 03 FB 00216 CALLS #3, DISPLAY_DATA : | 
04 00218 ET ; 0767 | 


; Routine Size: 540 bytes, Routine Base: S$CODE$S + 0000 


eR are ee ayy caate ve 


-EXTRN SYSSSETPRV 
-PSECT SCODES,NOWRT,2 
001C 00000 CHECK_PRIVILEGE: 


Ss ESS 16-Sep-1 :25:1 AX-11 Bliss-32 V4.0-74 P 4 s 
yOe-000. 1 ~3e- 1382 93:85 i4e YE TUTL SRE TSHOWEROS B85; 1 a 3 \ 
H 676 7 1 ROUTINE check_privilege : NOVALUE = ‘ 
; of f 1 i* é 
: 6 f ; This routine checks that the image has the correct privilege. ; 
; 7 ieee ; 
; 776 BEGIN 3 
; : 775 3 
; ore LOCAL 3 
3 5 77 status, 3 
3 ore oldpriv : SBBLOCK(8); ! Permanent privileges go here : 
; 6 7 : 
3 781 newpriv : ast ty] oe ! Mask to disable WORLD 3 
; 690 7 ¢ PRESET (Cprv$v_worldJ=true); H 
BOE : 
; 69 785 i The image SHOW is installed with WORLD privilege, but we don't want the user ; 
; 694 7 ! to have that much power unless s/he ae has it. So, first check to é 
; 695 7 ! see if the process has the privilege, and if not, then remove it for the : 
3 £38 res duration of this image. : 
; 698 P0790 3 IF NOT (status = SSETPRV(ENBFLG = 1, ' Enable | : 
; $% P 0791 PRVADR = 0, ! No new privileges 3 
; 700 P 079 PRMFLG = 1 ! Permanent privs 3 
: 701 79 PRVPRY = oldpriv)) ! Store current ones here : 
3 4 ae. THEN SIGNAL_STOP(.status); : 
: 704 re i Check to see if privilege there. If not, then remove it from current : 
: 706 fa } privileges. | : 
; 70 +99 if NOT -oldpriv(prv$v_world] ! If WORLD not permanent ; 
; 708 0800 THEN 3 
; 709 0801 BEGIN : 
; 710 P th) 4 IF NOT (status = SSETPRV(ENBFLG = 0, ! Disable F 
; 711 P 0803 4 PRVADR = newpriv, ! this Ap hs 5 3 
; ar; P U304 4 PRMFLG = 0 ! for the duration of this image F 
; 71 9805 PRVPRV = 05) ; 
3; 716 208 THEN SIGNAL_STOP(.status) : 
s 71s 080 END; 3 
3 ay 0808 3 
3 fri 0809 RETURN; 3 
; 718 0810 END; : 
-PSECT SOWNS,NOEXE , 2 3 

008 004CC NEWPRIV: .BYTE c2] 3 : : 

1 Bete -BYTE : 3 

O4CF -BLKB 5 : 


ESS b-fe -1 :25:1 AX-11 Bliss-32 V4.0-74 P 
yoee008. ak ats ra DT ct hg pi rh ae eee 63 | 
-WORD Sav R3, *. ; 0768 i 
4 909000006 ov ato : 
MOV : i 
E C suet : j 
D SHL + 0793 i 
pp PUSHL : | i 
7 1 70 mova (SP) : : 
e Ff CALLS Ag SYSSSETPRY : | i 
¢ 0 MOVL RO, STAT : i 
E BLBS stat 1s " : i 
3 44 CALL SrA iesstor o—— 
4 02 AE eB 1$: BLBS OLbpRivee, 2 2$ + 0799 : 
7E 7C CLRO + 0805 | 
0000° cr OF PUSHAB NEWPRIV : 
E D4 CLRL P) : | 
4 4 F CALLS #4, SYSSSETPRY ; 
2 D MOVL RO, STA Tus ; 
0 E BLBS = STATUS, : 
DOD PUSHL STATU + 0806 | 
63 01 FB F CALLS #1, LIBSSTOP 3 
04 00042 2% RET 3; 0810) 


; Routine Size: 67 bytes, Routine Base: SCODE$S + O021C 
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fF 11 
WexSep-i9ae f2:69:4e — LetTunsReisnowPRac.083;1 Page 8S 
a display_data (scratch, flags, ourpid) : NOVALUE = 


! 
! Display the data, based on which qualifiers the user gave. 


nputs 

SCRATCH == @ — scratch area to put stuff when we need it 
FLAGS <== the gp ions longword to direct what to output 
OURPID <== the PID of the current (this) process 


None. The data is displayed. 


scratch : REF VECTOR, 
flags : REF SBBLOCK; 


LOCAL 

tatus, | 
argist : VECTOR(3), 
entry : REF S$BBLOCK; 


! 
: Print the header. 


fao_systime = 0; ! Get current time 
fao_terminal+4 = aux_terminal; ' Locate the terminal string 
fao_username+4 = aux_username; ! Locate the username string 
showSwrite_line (ZASCID "!/!%0 !16AF ‘User: !AF', fao_systime); 


t 
: Display the data for each option requested. 


,,*tegsCproctv_def) ! Standard info 
BEGIN 

fao_prcnam+4 = aux_prcnam; ! Locate the process name string 

4 If the process of interest is this process, then obtain the current 

} default device name and default. 


IF .fao_pid NEQ .ourpid 
THEN 


BEGIN 
fao_defdev = 0; 
fao_defdir = cstring('Not available’); 


status; 
fao_defdev = |nm$c_namlength; 


' Length of logical disk name 
fao_defdev + 4 = aux_defdev; 


! Where to put logical name 


sh 


-Sep-1 :25:1 AX-11 Bliss-32 V4.0-74 Pp 7 
18-Sep-1944 a Coot eg 3g Pho ne ae sal { 
If NOT (status = STRIILOG( OGNAR = ZASCID "SYSSDISK', 

RSLLEN = fao_defdev 
SLBUF = fao “defdev5) 


ie (SIGNAL(.status); RE TORN) di 
CHSRCHAR ( aux _defdev) EQL %x*1B° 


Ms 

BEGIN 

fao_defdev = .fao_defdev 

fao_ defdeyv + 4: + (fao *Yetdes #6) +446; 


END; 
fao.detdir = pio$gt_ddstring; 


showSwrite_Line(ZASCID "Pid: !XL Proc. mame: !16AF UIC: !2%1", 


ZASTID ‘Priority: 'S3UB_ Default file spec: !AFI!AC’, 
fao_prib); 

' 

Get a List of devices allocated by this process 


SUIRREE | 


orsist 9 
argist = ‘Scraten: 
orgt str -fao 0.pid: 
0 IF NOT (status 2 CMKRNL (ROUT IN = get devall, 


ARGLST = arg[st) 


THEN SIGNAL(.status) 
ELSE 


BEGIN 
entry = scratch(1); 
reer? d_t _length) NEQ 0 


o 
Mewn— 


SBE 


BEGIN 
showSwrite_lLine(ZASCID ‘!/Devices atvenacye ‘AF’, 

rk ry d_ pengt 
one sentry + d_k_len 
WHIL sentrytd_ l tength) *e8 0 00 


shovsurite. ine (EASE Ip i !>!AF", entry(d_l_length]); 
entry = .entry + d_k_length 


— se ss i st 


WN —OOOBWNO VE WN 0 CONOUEWwN oO 


END; 
' 
: Get a List of mounted devices for this process 
IF .ourpid EQL .fao_pid 
von™ wa 


satseey ‘t 


F NOT (status : *SERcam cout Iy = get deveoun, 
ARGLST = arg[st)) 
THEN SIGNAL(.status) 
ELSE 


BEGIN 
entry = scratch(1); 


VDE BS DVRS BB ANAS SID DH DTI BE IIIA IIIA POT BB PUTT 
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H 11 
1enSep-1986 2:09:48 — LeCTuTLSReSsHowPROC 1659; 1 seal 


,. 
{i _gentryte. L_length] NEQ 0 


BEGIN 
shousurite. ar ~ si tenath): mounted: !AF‘, 


entry . L_len 
entry = .entry + d_k 
wHiLe ventryld. l Tengthi Ned 0 DO 


showSwrite_Line(ZASCID wb I>!AF", entryfd_l_length]); 
entry = .entry + d_k_length 


POPPA BBB EEE EEE EE EEE EAL EE & FMW AIRIPIPIPONINNINI FIA SINNAOOOOUM 
ee 


' 
Quotas 


= 


- flags(proc$v_quot] 
BEGIN 


If the CPU time Limit is set to zero, then say that it's 
infinite. Otherwise, mangle it and point to the mengied value. 


F .fao_cpulim EQL 0 
HEN 


BEGIN 
fao_cpulim = ZCHARCOUNT (° 1 
fao_cpulim + 4 = UPLIT (' I 
=ND™ 

ELSE 
BEGIN 
LOCAL 


| 
temp, 
uad_time : VECTOR(2); 
IF .fao_Cpulim 
TH EN temp = ———— 

= 


= 


DAMA MAUIIUI & 


VEWwnN— sgascccccsrernenanerssase | 


ir 
THEN 
' 
i 
i 
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_rREee 


* ab Ab Ab db 4h Ab 4b Ab db Ah Al 


CONOUES WN OO OONOUS WO 


ELSE t 
fao_cpoulim fao_cpulim<1,31>; 
EMUC (EREF (-2000007 


pee — spate: 


att vag +t 
he = m : 6; 
= aux coulim; 


sPaot (crash : ZASCIB *!Z0', 
OUT = fao_cpulin, 
SUTBUF = fao_cpulia 

— PRMLST = TREF (quad. time)); 


Pt 


Get the number of subprocesses renaining. by subtracting the current 
ob process count from the process Limi 
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11 
1b-5¢ 1984 01:25:1 AX-11 Bliss-32 V4.0-74 
1 mets 1 9) :6oiag tetiute sre SHOWPROC .832;1 
fao_prcim = .fao_prcim = .aux_jobprccnt; 
fao_account+4 = aux_account; ! Locate the account string 


showSwrite_Line(ZASCID '!/Process Quotas:!/ Account name: !AF', 


a0 account, 
foe. pul ve Limit: !AF Direct 1/0 Limit: !9uUL’, 
HASCIB Buttered 1/0 byte count quota:!10UL Buffered 1/0 Limit: !8uUL', 
HASCIB  Tiner queue entry quota:!16UL Open file quota:!11UL", 
ASTIO | Feging file quota:!22UL Subprocess quota:!10uUL', 
HASCID™: Defaue page fault cluster:!13UL AST Limit:!17UL', 
ASTID Enqueue quota:!26UL Shared file Limit:!9uL", 
ZASTID ' Max detached processes:!17UL Max active jobs:!11UL", 
fao_maxdetach); 


END; 
: 
: Accounting 


if _.flags(proc$v_acc] 
THEN 


BEGIN 


: Convert the CPU time to standard system format. 


EMUL (ZREF(-100000), fao_cputim, ZREF(O), aux_cputim); 
fao_cputim = aux_cputim; ! Locate the quad cputim 


: Figure out the connect time. 


BEGIN 
LOCAL system_time : VECTOR(2); 
SGETTIM(TIMADR = system_time); 
SUBR (2, system_time, aux_logintim, aux_logintim); 


fao_logintim = aux_logintim; ! Locate quad login time 


showSwrite_line(ZASCID = Ehacount tog information:' 
ZASCID * Buffered 1/70 


ft) 
ZASTID ° Page faults:!17UL Mounted volumes:!17UL', 


fao_pagefits, 
ZASTID * Images activated:!12UL', 
fao_imagecount, 

ZASTID * Elapsed CPU time:  !%D!/ Connect time: 'ZD', 
fao_cputim); 


re it 
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ibcdeont9Re 01:28:12 


i j Process privileges 

nH privj 

ie rivileges = ove ro riv : BITVECTOR(64]; 
oem (ine (% wth 5° sp 


BAstie "Process gr iyiteges:" .0); 
—" iofes FROM 0 TO priv_num - 1 DO 


! We do not want to display some ef ivi Lopes (UPGRADE, 
i TMPJNL, eye a are partially implemented but 
! This looks ugl te I know, but we could not comment t 
: out of the table because then the bits got out of s 


IF wid eden ea 3g. 
ex neq 


AND , index 
THEN shougwrite. Tee tRASCID * '20AC !A 
priv. table ny * 20): 


Gadierive. Line(ZASCID * *, 0); 


Display the rights for this process. 


if -ourpid EQL .fao pie 
ay display_rightst); 


' 
; Memory 


ir zftessCoroc$v_ mem) 


"BEGIN 
IF NOT (status = eneatorcatiregt)) 
i SIGNAL status); 


7 The subprocess tree 


if - flagsCproc$v_sub] 
THEN display_treé(.scratch); 


RETURN; 
END; 


AX-11 Bliss-32 V4.0-7 


CLIUTL.SRCIJSHOWPROC. 83 31 


DOWNGRADE, 

that can be set. 
he privite es 
ynchronization. 


upgrade 


i 
-index neq i downgrade 
AND ojngen _ ' tmpjnt 
! prmjnt 
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«-PSECT SPLITS,NOWRT,NOEXE,2 
eASCII N\I/!SD 8 ©6!16AF))=6CUUser: !AF\<0><0><0> 
LONG i Sg 7 


“ADDRESS P 
ASCII <h¥>\Not available\ 


atat Ssysspzse\ 


LODRESS P.ADY 
“ASCII \Pid: !XL Proc. name: !16AF UIC: !%1\<0> 


eASCII <0><0> 
; LONG : 694757 
sADDRESS P. 


“ASCII \Priority: '3UB_=—s—«éDefault file spec: !AF!\ 
ASCII Yat \<0><0> 

17694762 

S P.AEC 
eASCII \!/Devices allocated: !AF\ 
LONG iporenes 
ADDRESS P 
“ASCII \Nide '>! AF\<0><0> 
LONG 17694730 
S P. ace 

Asti \!/Devices mounted: !AF\<0><0> 
LONG i Se +3 


rts) a AEI 
ASCII \!i7< !>!AF\<0><0> 
“LONG 17694730 
eADDRESS P.AEK 
eASCII \ Infinite\ 


eASCII \!I2D\<0> 

eLONG 17694723 

eADDRESS P.AEN 

eASCII \!/Process Quotas:!/ Account name: !AF\<0> 


eASCII <0><0> 
“LONG 17694757 


-ADDRESS P.A 
eASCI] \ CPU Limit: ‘AF Direct I/0\ 
eASCII \ Limit: !9UL\ 
LONG 17694772 
ADDRESS P aa? 
SCI \ Buffered 1/0 byte count quota:!10UL Bu\ 
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1986 92:69:48 


ASCII \ffered 1/0 Limit: !8UL\<0><0><0> 


ADDRESS ; 
ASCII * (~# file quota:!22UL Subprocess quo\ ; 


eASCII \ 


“ADDRESS P : 
ASCII \ 4 ie 1/0 count:!10UL Peak working \ ; 


Ax-11 ot 4 Pi MFA gf 
CLIUTL.SRCJSHOWPROC .832;1 


17694781 


; “ADDRESS P.AET : 
“ASCII \ Timer queue entry quota:!16UL Open fil\ ; 


eASCII Ne quota:!11UL\<0><0><0> 


LONG vpersers 


ASCII 1854708 


476 


ASCH \ default page fault cluster:!13UL AST LX ; 


ASCII \imit:!17UL\<0><0> 


“LONG 17694770 
ADDRESS P.AEZ 3 
eASCII \ Enqueue quota:!26UL Shared file Limit:\ ; 


LONG 17694764 


ADDRESS. P.A : 
ASCII \ hon "senanhed processes:!17UL Max activ\ ; 


ASCII mic Te !TTULN 


oA cli 54 information: \<0><0><0> 


LONG i tf 


eASCII \set size:!11UL\<0><0> 


- LONG 
ts) SP 


i Sat Al 


Pane 


SCll \ Sloece 1/0 count:!12UL Peak virtual si\ : 


. 1th 17eGu768 


ADDRESS P ; 
ASCII \ "feat faults:!17UL Mounted volumes:!17U\ : 


476 


76 69 74 63 


ce oF 83 30 BF BF 
00 00 


65 6C 69 76 69 72 


41 
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18885-1986 12:68: 


M3 AX-11 BLi 


ASCII ipesereP 
td: P.AFK: LONG 
eADDRESS P.A 
ACS P.AFN: .ASCII \ re activated: !12UL\<0> 
P.AFM: .LONG i St 
ADDRESS P 
P.AFP: .ASCII \ Hesesd CPU time: 
SCI] \ 'ZD\<0><0> 
P.AFO: te 17694770 
P.AFR: ASCII \_\<0><0><0> 
P.AFQ: .LONG we 721 
eADDRESS P 
DOB2C P.AFT: .ASCI! ubroneet privileges: \<0> 
D0B40 P.AFS: .LONG 17694739 


“ADDRESS 

PRIVILEGES= 
SEXTRN 
SEXTRN 
.PSECT 

00000 DISPLAY_DATA: 


A rs} P.A 


} wigOAS, 'AC\<0><0> 


oAFV 

\ \<0><0><0> 
17694721 
P.AFX 


AUX_LIST+356 
SYSSTRNCDS SYSSCMKRNL 
SYSSFAOL, SYSSGETTIM 


SCODES ,NOWRT 2 


Save R2,R3,R4,R5,R6,R7,R8 

SYSSCMKANL L. R 

LIBSSIGNAL, R 

SHOW WRITE “LINE, R6 
FAO_CPULIM; RS 

FAO. SYSTIME 

AUX “TERMINAL, FAO. TERMINAL +4 

X-USERNA NAME. F AO" USERNAME +4 

PACs ; 

on SHOWSWRITE_LINE 

FLAGS, R4 

(R4), 18 

11$ 

AUX_PRCNAM, FAO_PRCNAM+4 

FAO-PID, OURPID™ 


FAO _DEFDEV 
P.ADW, FAO_DEFDIR 


ows FAO_DEFDEV 
AUX_DEFDEV, FAO_DEFDEV+4 


t s§ -32 v4.0-7 
CLIUTL. SRCd SHOWPROC .B 


'2D!/ Connect time:\ 


j 


Se Se Se Se Ge Ge Se Se Se Ge Se Ge Se Ge Se Se Se Ge Ge Se Ge Ge Se Se Se Se 


Sores 


Fy 


vw 
oo oO- 


N11 


$ ESS 16-Sep-1 :25:1 AX-11 Bliss-32 V4.0-74 
vive 12-808-1382 93:83:12 CLIUTL SRC ISHOWPROC .B3 31 
? 7 LRQ 2 =( SP) 
RL = (SP) 
C (OAS OOF HAB FAO_DEFDEV 
f AS OF PUSHAB FAO ~DEFDEV 
0000° CF 9F PUSHAB P.ADX 
000000006 00 F CALLS #6, SYSSTRNLOG 
a BLBS § STATUS, 3$ 
ND PUSHL ATU 
67 1 £ cA LS #1, LIBSSIGNAL 
18 0094 3$: CMPB = AUX_DEFDEV, #27 
BNEQ 4$ 
EC A C SUBL2 #4, FAO_DEFDEV 
FO OA 4 § ADDL2 #4. FAO-DEFDEV+4 
F4 a5 000000006 9 E 4$: MOVAB PIOSGT_BDSTRING, FAO_DEFDIR 
f AS OF 5$: PUSHAB FAO PRIB 
0000" CF 9F PUSHAB P.AEB 
D8 AS OF PUSHAB FAO PID 
0000 CF 9F PUSHAB P.ABZ 
" 66 4 CALLS a. SHOWSWRITE_L INE 
1 AE 04 at D MOVL SCRATCH, ARGLST+4 
14 AE 8 A g é MOVL FAO_PID. ARGLST+8 
C AE OOF PUSHAB ARGCST 
0000v CF 9F PUSHAB GET_DEVALL 
t F 3 CALLS #2, ~SYSSCMKRNL 
dO 000C MOVL RO. STATUS 
0 E8 000C4 BLBS § STATUS, 
DD 000C7 PUSHL STAT 
67 A Fe 90¢9 CALLS #1, LIBSSIGNAL 
52 04 Ac 4 C1 OOOCE 6$: ADDL3 #4, SCRATCH, ENTRY 
(tc: rr 
g pp 9007 PUSHL ENTRY 
0000° CF F 00009 PUSHAB P.AED 
$8 16 Ch Gooch oo KDBES. 956, “eotaee Ee tUNe 
p BOE TSTL (ENTRY) 
OE BEQL =s«8S 
D O00E PUSHL ENTRY 
0000' CF 9F OOE9 PUSHAB P.AEF 
p8 AS 0c cf 4 ° EP 8$ OReL TAP ID FAO_PID 
es HBR Bet Ph eensr 
10 AE 4 Ac p or MOVL SCRATCH, ARGI.ST+4 
C AE 9F OOOFF PUSHAB ARGLST 
0000v CF 9F 001 PUSHAB GET_DEVMOUN 
i tt ce Ae a 
07 E8 0010C BLBS = STATUS, 
DD 0010F PUSHL STAT 
67 re +H CALLS n LIBSSIGNAL 
52 04 ac 4 C1 00116 9$: ADDL3 #4, SCRATCH, ENTRY 
62 05 0011B TSTL (ENTRY) 


12 | 
Suourngcess ESO (4:35:12 YAGI OLiegcsz esOzeg | Pane aS 


S 
\ 


gp agte BEM, Nt 7 
0000' BF 1 PUSHAB P.AEH : 09 iy ; 
$6 2 FB 00125 108: CALL a3 SHOWSWRITE_LINE : | ; 
CO 001 ADDL2 #29, ENTRY > 0930) ; 
p 1 TSTL (ENTRY) + 0931) : 
12D BEQL «=s«a1'18 : | ; 
pd 10F PUSHL ENTRY : 0933) : 
0000" CF 9 1 PUSHAB PAAEJ ; | ; 
03 64 oi : 1 ; 11$: BBS “ (R4), 128 + 0944. ; 
00 i 1 BRW 17$ : ; 
50 DO 0013 128 MOVL FAQ_CPULIM, RO + 0951. ; 
12 0014 BNEO si : ; 
65 p 14 MOVL #16, FAO_CPULIM ' 0954 ; 
06 5 0000" CF ‘ 146 MOVAB P.AEL, FAO_CPULIM+4 > 0955 ; 
2 11 0014¢ BRB 16$ + 0951 ; 
09 ES OO1GE 138: BLBC RO, 148 : 0968 
0 FFFE7960 iF D0 it j ROVE #-{00000, TEMP + 096 ; 
D4 0015A 14$: CLRL TEMP + 0964 ; 
65 65 1F 01 cf 015¢ 15$: EXTZ2V. #1, #31, FAO_CPULIM, FAO_CPULIM : 0965 ; 
04 AE 0 65 FFFCF2CO 8F 7A 00161 EMUL  #-200006, FAO_CPULIM, TEMP, QUAD_TIME + 0966 : 
£5 19 bo 0168 MOVL #16, FAO. CPULIM : 0970 : 
06 Ad 01046 «= C5_—sO9E 0166 MOVAB AUX_CPULTM, FAO_CPULIM+4 : 0977 | ; 
6E 4 AE 9E 00174 MOVAB QUAD TIME, (SP) ; 0975) ; 
4020 of BB 00178 PUSHR #*M<RS,SP> : 3 
5 BD 0017¢ SHL ; ; 
ooo" CF 9F 0017 PUSHAB P.AEM : | : 
000000006 00 4 FB 018 CALLS #4, SYSSFAOL ; | ; 
20 A 1B4 C3 g 0189 16$:  SUBL2 AUX_JOBPRCCNT, FAO_PRCLM + 0982 ; 
FC OAS 194 (C5 9E O18f MOVAB AUX"ACCOUNT, FAO_ACCOUNT+4 : 0984 : 
4 AS 9F 00195 PUSHAB FAO-MAXDETACH : 0986 : 
0000" CF 9F 00198 PUSHAB P. : 0999 ; 
¢ AS 9F 0019C PUSHAB FAO_ENQCNT : 0986 F 
0000" CF 9F 0019F PUSHAB P. 3; 0997 ; 
4 AS 9F OO1A3 PUSHAB FAO DFPFC : 09 ; 
0000" CF 9F O01A6 PUSHAB P.AEY : 099 3 
iC AS 9F OO1AA PUSHAB FAO PAGFILCNT : 09 F 
0000" CF 9F OAD PUSHAB P.AEW : 099 ; 
14 AS 9F 001B1 PUSHAB FAO TQCNT + 0986 ; 
0000" CF 9F 001B4 PUSHAB P.AEU : 0991 ; 
C AS 9F 00188 SHAB FAO BYTCNT > 0986 : 
0000' ct 9F 0018B PUSHAB P.AES ; 0989 | ; 
5 DD 001BF PUSHL 5 > 0986 | : 
0000" CF 9F 001C1 PUSHAB P.AEQ ; 0987 | F 
FB OAS OOF O1C3 PUSHAB FAO ACCOUNT : 0986 ; 
0000" CF 9F OOIC PUSHAB P.AEO : | 3 
&b 19 Fe gice CALLS #16, SHOWSWRITE_LINE : ; 
SA 64 ; 1CF 17$: BBC #2, (RS), 18 > 1007 | : 
0188 5 00 AS FFFE796 F 7A 0103 EMUL_  #-100000. FAO_CPUTIM, #0, AUX_CPUTIM + 1014 : 
A 01 CS 9E 001DF VAB_  AUX_CPUTIM, FRO_CPUTIM : 1015 | ; 
AF OF IES PUSHAB SYSTEM TIME : 1022. ; 
000000006 0 01 FB OO1E CALLS #1, SYSS$GETT : | : 
100 ¢ 4 AE C2 OOTEF SUBL STEM_TIME, AUX_LOGINTIM : 1023, : 
1 C AE p 1F5 SBwC 30s SYSTEM™TIME. AUX"LOGINTIM+4 : : 
C (OA 01c0 «36CcS) «(9E 001FB MOVAB AUX_LOGINTIM, FAO_LOGINTIM > 1026 | : 
| 
| 


12 
ssesgess HERI PURE UU, 


AS OF 1 PUSHAB FAO_CPUTIM 3 7 i 
0000" CF 9F PUSHAB P.AFO +1 
AS OF 8 PUSHAB FAQ_IMAGECOUNT : 1028 i 
0000° CF 9F PUSHAB P.AFM + 1034) i 
at AS 9F F PUSHAB FAO_PAGEFLTS + 4 é | i 
0000" CF 9F PUSHAB P.AFK : 1032. : 
44 AS 9F 0021 PUSHAB FAO_DIRIO : 1028 | i 
0000" CF 9F 0021 PUSHAB P.AFI : 10 | i 
¢ AS 9F 19 PUSHAB FAO _BUFIO + 1028 | : 
0006° cr F PUSHAB P.AFG : : 
£ oe 4 CLRL -(SP) : ; 
0000" CF OF 6 PUSHAB P.AFE : | 
ee ¢ Fe A CALLS aie, SHOWSWRITE_LINE : 
54 64 E D 18%: 688C #3, (R4), 218 + 1044) i 
E p4 0031 CLRL. _=( SP) : 1048 | 
0000° cr F 3 PUSHAB P.AFS : | : 
E p4 0 CLRL —s_ = (SP) : ; 
0000' CF 9F 00239 PUSHAB P.AFQ : 
bb FB 00 CALLS #4, SHOWSWRITE_LINE ; 
D4 00240 CLRL — INDEX + 1050! 
24 o1c8 «C5 E1 00 4g 19$: BBC INDEX, PRIVILEGES, 208 + 1059 
20 é D4 024 CMPL NDEX, #3 + 1060 | 
1F 13 00248 BEQL : 
21 52 01 00240 CMPL NDEX, #33 + 1061 
1A 13 0025 BEQL 3 
24 3¢ D1 0025 CMPL NDEX, #36 : 1062) 
15 13 0025 BEQL ; | 
25 32 D1 00257 CMPL INDEX, #37 + 1063) 
10 13 0025A BEQL 0$ ; 
50 52 01 78 0025 ASHL #1, INDEX, RO + 1065) 
0354 ¢540 DF 0 PUSHAL PRIV_TABLECROJ : 
0000" CF 9F 0026 PUSHAB P.AFO + 1064 
66 2 Fe 0269 CALLS ue SHOWSWRITE_LINE + 1065 
D2 52 6 F3 00 $ 20$:  AOBLEQ #38, INDEX, 198 : 1050 
E p4 0 CLRL = = (SP) : 1067 
0000 cf F 0027 PUSHAB P.AFW : 
66 2 FB 0 £6 CALLS #2, SHOWSWRITE_LINE : 
p8 AS 0c at p} 0 f CML QuRPiD, FAO_PID + 1072 
0000v CF 0 FB 00 ap CALLS #0, DISPLAY_RIGHTS + 1073 
64 4 €1 00285 21%:  B8BC #4. (RG) + 1080 
000000006 99 F 0 9 CALLS #0. SHOWSPRCALLREG : 1083 
D MOVL R A : 
05 E 9 9 BLBS STATUS, 22$ : 
DD 3% PUSHL ATUS + 1084 | 
67 1 FB 0029 CALLS #1, LIBSSIGNAL : | 
08 64 5 €1 00298 22$: BC #5. (R4), 238 : 1090 | 
04 AC DD 0029F PUSHL SCRATCH : 1091 | 
0000v CF 01 FB 00 ng CALLS #1, DISPLAY_TREE : 
04 OO02A7 23%: RET : 


; Routine Size: 680 bytes, Routine Base: SCODES + 025F 


1S Ben-1986 04 


5 1 ROUTINE display_tree (scratch) : NOVALUE = 
BEGIN 


SHOWPR 


mm 
nw 
wn” 


SPM CKLr ar oa al Sa 


2 


leee 

‘ 

! A routine to print the puserecess ree. This is used as the Story ing 
point for calling NEXT_PROCESS, which is a recursive routine. This 
routine simply sets up the master process, the process at the top of 
the tree, and then calls NEXT_PROCESS to wind its way down the tree. 
When control is finally returned to this routine, then all the processes 
in the tree have been displayed. 


—_ 
232283838 
wa 
lt lt elt al als alt lll 
SSSSSSSS3SS33 
ww 


— 4 4 


NAVE WN —OOONOUS 
SS 


SCRATCH == address of the scratch area that contains all the 
info on the subprocesses 


Outputs 
None. The subprocess tree is output. 


' 
i 
i 
i 
i 
i 
} Inputs 
i 
i 
i 
i 
i 
i 


scratch : REF VECTOR; 
LOCAL 


10 
\ 

18 
14 
12 
Hi The first longword contains the 
19 

0 fao_pix, 

1 master_pix : WORD 

; entry : REF $88 otk, 
Z argist : VECTOR(3J], 
0 

4 


size of the scratch area 


Index for the fao pid 

Master index for this JIB set 
Pointer to the entries 

Foe, Gver=presens argument List 
SIQNn... 


penelope ejejeleloleleolelojlelololo) 


WAN 
wn 


status; 


! 
Get information on all the relevant processes. 


oOooo°coo 


eroistto) = 1; ! Set up the argument List 
argistCiJ = .scratch; 
IF NOT (status = SCMKRNL(ROUTIN = make_tree, 
RGLST = arglst)) 
THEN (SIGNAL(.status); RETURN); 


' 
: Find the master process. 


entry = scratch(1); ! Set up a pointer to the entries 


WHILE .entryCsub perer NEQ 0 DO ! Look for a non-owned process 


sub_name] + pcb$s_\name; 


entry = entry 
master_pix = .entryCsub_pix); ' Got it, now save it away. 


showSwrite_line(ZASCID '!/Processes in this tree: !/", 0); 
argist(0) = entr cous name); 


SSVSVENS Sano MPN mOSe Nee 


GLALARARRAREEREREE EEE 


* ! Point to the process name. 
,-Sch$gl_pixwidth>; ! Get index for fao process 


Be Oe Se Se Ge Se Se Se Fe Se Se Fe Se Se Se Se Fe Se Ge Ge Se Ge Se Ge Fe Fe Ss Se Se Se Ge Se Se Se FH Se Se Se Se Se Se Se Se Se Se Se Ge Se Ge Se Ge SH Se Se Ge Ge oe 


ce ee a ee ee ee ee a a ee ee ed ee ee ed ee ed ed ed 
ei le eee Ss 


ee ee ee ee ed od od ed od od 


40 

*] 

a3 

is 5: 

r4] Display this master process. If it is the originator, say so. 
4 

a9 

50 

51 


g 


fao_pix = .fao_pid< 


GoBeoct9Be 01:25:12 YaNc OL ian 32 v4. 0-742 Page 38 


meme —> + 


3 } 11 -master jee .f f this is th igi 

: et deeb catatl Sasi ae ttae 

; } 5 1 $F ShouSer te ine (XASCI 1D *!AC!ac', orgist): apemetatneegd omgp 

| 11 

: ; i 8 Now go get all the other subprocesses hanging off this one. 

:1 11 ener = scratch(1); ! Always start at beginni f li 

; ; f 1181 nent process(. entry, .master pix, .fao_pix, rH ee ee 
: 107 1183 RETURN; 

; 107 1164 END; 


-PSECT SPLITS,NOWRT,NOEXE,2 
Hy 908 P.AFZ: .ASCII \!/Processes in this tree: !/\ 
Oo ts 0B84 P.AFY: .LONG 17694748 
0000' B eADDRESS P.AFZ 
04 OB8C P.AGA: .ASCII <4>\ (#)\ 
0891 LKB 


0000 00894 P.AGB: ONG 
1 00898 P.AGD: .ASCII 1586195) <0><0> 
: 17694726 


010€00 
00000000" O0BA4 «ADDRESS P.AGD 


Oo 8 SF 20 OS OH OS OE 8 


: 
0 
29 2A 28 2 
0 
4 
0 
0 


00 00 43 41 21 43 


-PSECT S$CODES,NOWRT,2 
007C 00000 DISPLAY_TREE: 


.WORD Save R2,R3 R 4,R5,R6 : 1095. 
56 000000006 00 9 0000 MOVAB SHOWSWRITE LINE, RO : 
5e 08 5 $00 SUBLS #8, SP : 
01 0D 0000C PUSHL #1 : 1129 | 
04 AE 04 AC 00 000 VL SCRATCH, ARGLST+4 : 1130) 
5E 0D 0001 PUSHL SP 3 1132) 
0000v CF 9F 0001 PUSHAB MAKE_TREE : | 
000000006 00 3 FB 901 CALLS #2, SYSSCMKRNL 3 | 
™ 0 BD ; PUSAL STATS " $1133. 
000000006 00 1 FB 035 CALLS #1, LIBSSIGNAL : | 
55 oo A Q C1 055 18: ADDLS #4, SCRATCH, RS ; 1138. 
; 7 2s: TSTW CENTRYD : 1140) 
BEQL 3 3 
52 14 ( 9 ADDL2 #20, ENTRY : 1141 | 
54 02 a2 80 3$: MOV sentry), MASTER_PIX > 1143) 
7E p4 4 CLRL = =( SP) > 1148 | 
0000" cf F 0004 PUSHAB P.AFY : 
66 : FB 00048 CALLS #2 SHOWSURI TE LINE ; | 
6E 04 A2 9E 00048 MOVAB 4(R2), > 1150. 


voe-000 1ecbee9Be QU:G5:12 YAEL SESSA ala Pane os) 


0000" ¢F 000000006 » SCHSGL_PIXWIDTH, FAO_PID, FAO_PIX : 1151 
83 gf 8 fet #0, Bio. ASTER PIX, FAO? “pix’ '*0- : 1182 
04 AE on P.AGA, ARGLST+4 ; 1153, 
04 AE vee $: AGB, ARGLST+4 : 1154 
PUSH. SP ; 1155, 
0000" oF PUSHAB P,AGC ; | 
$6 th CALLS me: i SHOWSURITE_LINE pas 
D MOVL : 1760. 
} po PUSHL #1 ; 1161 
po PUSHL FAQ_P : 
7E 4 3¢ MOVIL MASTER. PIX, =(SP) : 
2 dD PUSHL ENTRY : 
| 0000v CF 04 FB CALLS #4, NEXT_PROCESS ; | 
04 RET ; 1164. 


; Routine Size: 138 bytes, Routine Base: S$ CODES + 0507 
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a a ee ee ee re ce a 8 ee ee a ee ee a ed ed ae od od od 
a a ed ed nd = = 2 


a a a a et a 8 ow ot 2 ot os = 


SLSVSNSRRUVLSSaVSnraw=SSseVSESRALLS 
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DOR as st se ee 


BOUT Ine next_process (entry, pid, origin, level) : NOVALUE = 


! A magical Little routine that looks for a preseee in the scratch 
area that has an owner PID equal to the PID that is passed to it. 
f such a process is found, then Fits subroutine is called again, 
with that process's PID, to get all its children. It's a fairly 
nifty way to go about printing the tree. 


Inputs 
ENTRY <== beginning address of scratch area 
PID == the PID to look for as a process's owner 
ORIGIN == the PID of the process that this SHOW PROCESS 
request was issued for. 
LEVEL == a handy way to tell what level of subprocess we're at. 


Outputs 
The subprocess tree is displayed. 


LOCAL 
status, 
list : REF SBBLOCK; 


list = .entry; ! Point to the List of entries 
nm the entries, looking for an entry whose owner field is equal to PID. 


' Sca 
! If/when such an entry is found, print it. If that entry is the process 
! of interest, indicate it. 


4 
i) 8) 
BFGIN 
if .listCsub_owner] EQL .pid<0,16> ! If this process is owned by 
THEN ! the process, print it. 
BEGIN 
LOCAL 
sone : VECTOR(80 gyred. ! Need a place to store spaces 
9 st_: VECTOR(3); ! And an argument List 
fone OJ = 2 level; ! Print this aone leading 
CHSFILL(® *, 2¢. level+1, temp[1)); ' spaces before the name. 
argistl0) = temp; ' Now point to it. 
arglst 1} = listEsub name); i Point to the process name 
IF .listCsub_pix) EQC .origin<0,16> ' If the originator, 
THEN argist(2) = cstring(* (#)'S i then point it out 
ELSE arglst = UPLIT(O): ! otherwise be silent 
showSwrite_line(ZASCID "!AC!AC!AC', arglst); 


Zero the owner field, so that this process isn't displayed again. Then 
call this subroutine with this process's PID, and a higher level, to display 
all of its children. 


ListCsub_owner] = 0; : 
next_process(.entry, .list(sub_pix], .origin, .level+1); 


: 


-$ 


3:11 1 § END; 

; i 4 1 : List = list£sub_name] + pcb$s_\name; 
iM : UNTIL .ListCsub_pix) EOL 0; 

311 1 RETURN; 

3; 11 1228 END; 


000000 


10E0009 OOBCO P.AGG 
0000000" 0BC4 


E AS AE 9E 00002 
6 04 AC 00 00006 
08 AC $8 Bi OOO0A 1$: 
12 0000 
50 10 «AC 1 78 0001 
Oc AE 8 a Oot8 
50 20 6€ 00 ec 001 
D AE 00 
6E C AE 9E 38 
04 AE 4 AG YE 00026 
Oc ac 02 48 81 4 
08 12 000 
08 AE 0000° ff + 00 
6 1 3 
08 AE 0000° gf 9E O005A ¢: 
E 4 40 5$: 
0000" CF 9F 4 
000000006 00 : fe 4 
8 4D 
7E 10 AC 1 C1 8 4f 
C¢ AC go & 
7E 2 Ab 3 8 7 
4 AC OD B 
9E AF 4 F 5 
56 4 C¢ 62 48: 
02 A ° 
A 
04 OA 


; Routine Size: 107 bytes, Routine Base: SCODE$ + 0591 


16 42 1 
-“seo- 
16 opt 


29 2A 28 20 04 pers PAGE: 


P.AGF: 
00 00 00 43 41 21 43 41 21 43 41 3 Opps PACH: 


007C 00000 NEXT_PROCESS: 
- WORD 


bc $2i6o:4e — LeLiutL’sneSsnoubnoc 059: 1 


«PSECT SPLITS,NOWRT,NOEXE,2 
ott <4>\ (#)\ 


G 
ASCII iT ataertana 
-LONG 17694729 
-ADDRESS P.AGH 
-PSECT S$CODES$,NOWRT,2 
Save R2,R3,R4,R5,R6 
=93(SP). SP 


MOVAB 
MOVL ENTRY, LIST 
CMPW 3S s«(LISTS, PID 


ASHL #1, LEVEL, RO 

MOVB RO, TEMP 

INCL Re 

MOVCS #0, (SP), #32, RO, TEMP+1 


TEMP, ARGLST 
MOVAB 4(R65, ARGLST+4 
CMPW (ist), ORIGIN 
B AGE. ARGLST+8 


MOVAB we ARGLST+8 


PUSHL 

PUSHAB P.AGG 

CALLS #2, SHOWSWRITE_LINE 
ADDL3 #1, LEVEL, -(SP) 
PUSHL 


MOVZWL 2(LIST), (SP) 
PUSHL EN 

CALLS #4, NEXT_PROCESS 
ADDL IST 

TSTW e(ist) 

BNEQ 6 

RET 
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showPRoe 080: 1 


nv 
—= 
—Y 


8 
L. 


ie 
-2> 


xo 
qu 


o 
aol 
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ROUTINE make_tree (scratch) = 
BEGIN 

' eee 

' 

; This routine operates in KERNEL mode. It locates the JIB, which is shared 
: 

i 

i 

i 

i 

i 

i 

i 

i 
4 
& 

4 

: 


5 by all processes in sats tree. Then, it scans all the processes in the 
system, gathering information about each process with the appropriate JIB 
address. All the data is stored in the scratch area pointed to by SCRATCH. 

$ Inputs 

rs SCRATCH == address of the scratch area. 

4 Outputs 

tz SCRATCH == will contain all relevant data about the subprocesses. 
45 --- 

¢ 

rs scratch : REF VECTOR; 

50 LOCAL 


entry : REF SBBLOCK, 
cb : REF SBBLOCK, 


mit, 
jib_address; 


entry = soresess a? ! Point to the scratch area 
Limit = scratch(0) + .scratch(0) -256; ! Limit is half a page before 
! end of scratch area. 


t the JIB address. All processes of interest will have the same JIB address 


PASO 


SSBUEAPER IS SeNeurw— 


Ge 
b = exeSepid_to_pcb (.fao_pid); 
b_ oe Bf :: 


address = -pcblpcb$i_j ib 


ete) * er 
ao 


i Scan all the processes and get only those whose JIB address matches 
this process's JIB address. 


NCR_ index FROM sch$c_swppix+l TO .sch$gl_maxpix DO 
BEGIN 


PUSS 
RRA HOG NONE OO WO AR UN DOD RAR IRD Ooo dO ee 


71 cb=. chSol qpyeet. indexd: 
% F .pcb{pcb$l jie EQL .jib_address 
7 AND .entry LSSA . Limit 
74 THEN 
ie 7 b_pix] b(pcb$l_pid) 
entry(Csu x) = .pc ; 
7 entry sub -puner) ? pcbipebSt owner); 
g encey = CA VE (pcb$s_lname, PcbCpcb$t_\name, entry(Csub_name)); 


END; 
entry(sub_pix] = entry(sub_owner] = 0; ! To show end of List 
RETURN 1; 
END; 


Be Se Ge Se Se Se Se Ge Ge Se Be Se Ge Sse Ge Ge Fe Ge Ge Fe Se Ge Ge Se Ge FH Se Se Ge SH Se Ge Ge Se Se Ge Se Se Se Se Se Ge Se Se Se Se Se Se Se Se Ge FH Se Se Se Gee 

8 A a a mk a at st is a ss a sg ss a ss sg Lt a ss 
ak ik a iki a a tk ni ik i ak ak i nk ik ak nk ak a tk a a a at i“ 2 Ss 2 a a a a 
em ee em ee a ed ed ed od ed dd 


LESFASLES 


ae 


58 000000006 


0080 
56 
02 ¢3 60 
6 1c 
04 A3 70 2A 
de 58 000000006 


50 


; Routine Size: 99 bytes, Routine Base: 


9 000000006 
5 60 
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1$-sep-1904 01:35: 


O3FC 00000 MAKE_TREE: 
-WOR 
¢1 § Apo 


Se 


oo 


SRS See cece 


ad tl 
WMA L - POmMOwog 
— 
tad 


oO 
oO 
wn 
ww 
™ 
wr 


SOFWOOCOM—~m—00O 


yo 4 Mere 4 by —-oC7Cc”7g 


SCODES + OSFC 


Me LetTURLESAeSShbubRoe 085: 1 


#4, SCRATCH, ENTRY 
astRATCH, SERATCH, R6 
=256(R6), LIMIT 


nn" 
> 
Oo 
vw 
— 
= 
mz 


2 JIB_ADDRESS 
| “SWPPIX+1, INDEX 
CHSGL_PCBVEC, RO 
RO)CINDEX], PCB 

2 (PCB), JIB_ADDRESS 

N 

$ 


TRY, LIMIT 


(PCB), 2(ENTRY) 
(PCB). (ENTRY) 

#16, 112(PCB), 4CENTRY) 
SCHSGL_MAXPIX, INDEX, 1$ 
(ENTRY) 

#1, RO 


MmONPMN—-—YVVa— wD 


12 


ROUTINE get_devall (data, pid) = 
BEGIN 


H allocated by this process. 


Inputs 
DATA == scratch area to store the names 


SELEAEANLSSES 


mit, 
scratch : REF S$BBLOCK, 
ucb : REF $BBLOCK, 
ddb : REF SBBLOCK; 


MEUM OOD NOU EWN OC OONAUE WN —O0O@ Mewn— 


scratch area to store more data. 


scratch = datell3; 
Limit = .datal0] + datal0] - 256; 


status = 1; 
i 


MEUN —OOCBNAOUESWUN“OOONOUSE 


a a tk a ak a ak ak a a kk tk at at a a = 2 = = 1 a ss SS Ls = 2 os YS 
a a a a a a a et td = = 2 = = 2a ss = 2 2 a 1 


Be Se Be Oe Oe Se Se Se Se Se Se Se Se Se Ge Se Se Se Ge Ge Ge Se FH Ss Se Se Ge FFs Ss Ge Se Se Se Fe Se Se Se Ge Se Oe Se Se Se Se Se Se Be Se Ge Se SH Ss Se Se Se ee 


18-5 “19 
1e-8ep-19 


Be 92:63:08 — EetTdn SAeSsnowbnoc-0 


i This routine rates in KERNEL mode, and gathers the names of all devices 


Internal pid 
End-of-address Limit 
Pointer to scratch arsa 
UCB pointer 

DDB pointer 


i 
i 
; PID <== PID of the particular process of interest 
1 i Outputs 
; : DATA == will contain the device names 
1 — 
i 
; data : REF VECTOR; 
LOCAL 
status, 
ipid, 
Limit 


Set up the scratch area so that is can be addressed easily. Ales, calculate 
a limit toward the end of the scratch area, so that we don't write beyond the 
area. Finally, set up STATUS as 1, to show that we still have room in the 


! Point to pogrenen of scratch area 


Set the Limit to be halfway in to 


! the last page of the scratch area. 


Indicate no problem yet. 


40 i Lock the 1/0 data base. Upon return from the call to SCHSIOLOCKR, the 
re IPL will be 2, so that pagefaults are still allowed. 

ve SCHSIOLOCKR(.ctl$gl_pcb); ! Lock the 1/0 database 
45 : 

“3 : Convert the extended PID to an internal PID for checking the 1/0 database. 
48 ipid = exeSepid_to_ipid (.pid); 

50 : 

51 ! For each UCB in the 1/0 database, see if the owner PID matches the 

26 3 : internal PID of interest 

34 ? Status = IOCSSCAN_I0DB(0, 0; ddb, ucb); 

55 4 WHILE .status DO 

56 42 BEGIN 


3851 


"12 


S ESS Sep-1 AX-11 Bliss-32 V4.0-74 
vO4 eats a a Ca te hg ic eae age 498 
; 1257 1 F .ucbCucb$l_pi QL .ipi 
i ; ies ucbCucb$l_pid] EQL .ipid 
; 1 1 4 ‘ysty «scratch GEQA .Limi ! Check if there is still room 
i] ‘ 17 4 WEN (status = SS$_VASFULL; EXITLOOPS: 
; 126 1 4 IF ioc$cvt_devnam(21, ' Get : see eee, this lt 
3: 1266 1 4 scratchld_ t.devicel, i put it ‘ rg , 
; ; 65 : ? me ifanderd “display format 
; 1 $ 1 4 Scratchld_l_length?) i Wee al te length here 
: } $8 : —_ 
:1 16 1 scratch q. lL Leng th) = atcha tae l Length) - 1; 
3: 127 1 scratchld_a “ptrl = scratch(d_t device] + 1; 
; ; Lf : i scratch : “Scratch + d_k_length 
: 127% 1 0; | 
3; 1275 1 status = IOCSSCAN_IODB(.ddb, .ucb; ddb, ucb); 
im ° jg; & 
. 
3% A | 1 scratch(d_l length) = 0; ! To show end of List 
3 1 1 IF .status EQL ' If just end of List 
3 1 rs} 1 THEN status = mad ! then readjust status 
1582 | 
: 1 Ht 1 i Now to clean up. Unlock the 1/0 database, then lower the IPL 
: ; Be ; to zero. | 
:1 1 SCHSIOUNLOCK(.ctl$gl_pcb); ! Unlock 1/0 datab 
. Mi SET_IPL(O); srf i lower IPL | 
: 1289 1 RETURN .status; ' Return with status 
: 1290 1 END; ! End of GET_DATA | 
OFFC 00000 GET_DEVALL: 
WORD Save R2,R3,R4,R5,R6,R7,R8,R9,R10,R11 : 1286 
58 000000006 00 9 900 v CTLSGL Pca. Rb ; 
53 C Ci 00 ADDL3 #4, DATA SCRATCH F 1320 
52 s 04 aC gi 00 ADDL3 DATA «aah 2 : 1321 
FFOO 1 MOVAB 326 Str ), Limit ; 
6 1 O 19 MOVL #1, STATUS 3 1333 | 
4 ; 0 1¢ MOVL CTLSGL_PCB, R4 3; 1329 
000000006 1 1F JSB SCHSIOFOCKR : | 
50 A p MOVL PID, R 3 1334) 
000000006 JSB EXESEPID_TO_IPID : 
57 ? r MOVL ng IPID 3 
A CLRO = R16 > 1340. 
000000006 1 18: JS8 1ocsscan 1008 3 
§ i) A VL RO, STAT ; 3 
E Blac = stArUs : 1341 
? 2c OA D} 4 CMPL 4(ucBs, IPID > 1343 | 
EE 12 4 BNEQ 1$ 3 


Routine Base: 


52 4 
56 0244 f 
} 08 83 
. 000000006 
goof 

e8 
oe O 
4 8 
7 


o-co°0-00—-"-— mo—-TOo 
Sooonumr—om~ an 


aCODES + O65F 


oem 12:68: 


2 AX-11 Bliss-32 ¥4.0-7 
74 CLIUTL.SRC SHOWPROC .B3 31 


Xf. LIMIT 

80, STATUS 

atScRATCH), R1 
RS 


fest are 


CH) 
4 (SCRATCH) 
SCRATCH 


RATCH) 
Tus 


STATUS, RO 


ae SESS 


Be Se Se Se Ge Be Ge Ge Fe Se Ge Ge Se Se Ge Fe Ge Fe Se Se Ge Se Be Se 
a a CD a a ee a 
WW 


i | 


ouw 


iSBen-1966 01:25:1 


48 


VAX=11 Bl isg-32 v4.0-74 
G (14) | 


Pa 
LIUTL.SRCISHOWPROC.B32;1 ” 
1 ROUTINE get_devmoun (data) = 

BEGIN 


Sa 


Cee 


meee 


3: 1 1 

3 3 1 

3 1 1 

: eg i 

: 1 38 1 i This one operates in KRNL mode, and otapty pees down the mounted volume 

3 3 4 1 ! List for this process, putting the name of the device(s) into the DATA 

3 : : : H area. 

:1 1 i Inputs 

: } : : DATA == scratch area to store the device names 

51 1 i Outputs 

3 } ; is ' } DATA == will contain some device names, maybe. 

; 1308 1398 ~ 

; 1309 1394 2 MAP data : REF VECTOR; 

18 1396 5 LOCAL 

:1 i 1 39 status, 

3 131 1398 Limit, 

: 1514 1399 mtl_head, 

3: 1315 1400 jib : REF S$BBLOCK, 

3 1 1 3401 devlist : REF S$BBLOCK, 

3; 131 1386 scratch : REF $BBLOCK; 

WB HB 3 oun 

: 1320 1405 pcb = .ctl$gl_pcb : SBBLOCK; 

HB 16g, 

: 1 : 1408 i Set up the scratch area so that is can be addressed easily, Also, calculate 

3: 13246 1409 ! a Limit toward the end of the scratch area, so that we don't write beyond the 
3; 1325 1410 ! area. Finally, set up STATUS as 1, to show that we still have room in the 

3 ! § 1e1) scratch area to store more data. 

: 1328 1218 scratch = datett); ! Point to beginning of scratch area 
: 1329 1414 Limit = .datal0J + data[0) - 256; ' Set the Limit to be halfway in to 
3 7 1415 ! the last page of the scratch area. 
; 1331 1ei8 status = 1; ! Indicate no problem yet. 

: 1388 1218 3: 

: 1 1219 i Starting at the mounted device List in the JIB. Simply copy 

3 } 5 1° ? : the device name and unit number into the scratch area. 

: 1 14 j jib = .pcb Cpcb$t jib}; ' get the JIB address 

31 14 mtl_head = devlist = jib CjibSt_mtlfl); i get the mount List head 

3; 1339 1424 schSiolockr(.ctl$gl_pcb); ! lock 1/0 database 

He 183 

: 1 § 14 $ WHILE .status ! While no error 
3; 1 1428 AND (devlist = .devlist(mtlSi_mtlfl]) NEQ .mtl_head DO ! not at end of 

3 1344 1429 BEGIN ' the List, copy 
3; 1345 1430 IF .scratch GEQA Limit ! Check if there is still room 
| 6 1431 THEN (status = SS$ VASFULL; EXITLOOP); 

3; 1 14 § IF ioc$cvt_devnam(21, ! Get device name, max this long 
3 1348 14 scratch(d_t_devicel, ! put it here, 


+ at ae 


5 a as bd — 2 — 9 Ls ss ss 


We wr DONO 


tk 


OFFC 00000 
59 0000000.% 00 43 
54 +4 DO 0000 
po ee. Bee 
Boe eh Ba 
i omeo s Saat 
” 000000006 °e 60 k 
yomome F 
56 6 DO 00 
EE 
: St) Sie 
57 0244 a 7 804) 
51 8 aS 43 0047 
HOR eo is 
0 15 50 09 g 
000000006 00 1 
gg rooms GH TF B3e 
CF E 0 
a Bi 
04 a3 09 6 6 
1 ft iss 
54 6 90 31 
000000006 6 0 
12 Q DA Or 
65 D4 7 


w$p-1986 12:09:46 


AX-11 Bliss-32 V4.0-7 
CLIUTL.SRCJSHOWPROC. 83 1 


in a yengere display format 
i #Ral te length here 


! Unlock 1/0 database 
!' and drop IPL 
! Zero to show end of List 


14 -1, 

1435 .devlis ‘wit auch) 

14 scratchtd_l_ length) 

14 THEN 

14 $ 4 BEGIN 

14 4 sereccnsd. L_length] = agehtact de t Length} “1; 
1o09 4 scratchid_a_ptr] = scratch(d_t erutees +1; 
144 scratch = .scratch + d_k 

1208 ND; 

144 3 

1444 

1445 ree -ctl$gl_pcb); 

re | set 

re seratchtd. l length) = 0; 

1005 RETURN .status; 

1450 END; 


GET_DEVMOUN: 
.WORD Save R2,R3,R4,R5,R6,R7,RB,RI,R10,R11 
MOVAB CTLSGL PCB. RS 
MOVL cI TLSGLe PCB, 
ADDL DATA SCRATCH 
ADDL Data’ aDATA 
MOV -256(R2), tints 
MOVL #1, STATUS 
MOVL 128(R4), JIB 
MOVL JIB, DEVLIST 
MOVL JIB, MTL_HEA 
JSB SCH$IOLO 

1$: BLBC = STATUS 
MOVL (DEVLIST), DEVLIST 
CMPL DEVLIST, MTL_HEAD 
BEQL $ 
CMPL SCRATCH, LIMIT 
BLSSU 2 
MOVZWL #580, STATUS 
BRB 4 

2$: MOVAB (SCRATCH) 
MOVL @(DEVLI LISTS, Rs 
MNEGL #1, R4& 
MOVL #21, RO 
JSB 1OC$CVT_DEVNAM 
MOVL R1, (SCRATCH) 
BLBC ~=s._«aRO,._:*O1 
DECL (SCRATCH) 
ROVAB 9(R3), 4(SCRATCH) 
ADDL #9, SCRATCH 

3$: MOVL  CTLSGL_PCB, R4 
JSB SHS 1OONLOCK 
MTPR = #0, #1 
CLRL (S€RATCH) 
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(14) 


_ 
wW 
N 
NN 


PPP LPP PSL 
CONF WMO Fww 


ee ee 
MmMNrN MMR ——oO 


suguenacess fete magi Wedh MURR te, at 
50 57 9° poore wore STATUS, RO : 1283 


3; Routine Size: 127 bytes, Routine Base: SCODES + O6EF 


7 


PEPE E LLL LL LSI 
WRC OOVOUS wr 


o 
uw 


SF 


SELLE LLP LPL EEE 


o 


pele) 


FW CO OONOUS WO 


090909 090909 INI NNN NN NNO 


SSSPALLSSSLESF 


oO 
@ 


a a a ee ee ed ed ed od 8“ od od = 


Et ek ek et ek ee kk kk al hk el ek hah a 
a ee a a ee a a a a el a a eed 


Ww ee i) oo 0 oo 9 9 9 77 7 te Tt tt te ee ee ee ee 


QLESRANLSSSLERRANLESELES 


Rohofoty 


WH SOMNONFWu—OS 


18-50-1984 9}: 3:} AX-11 Bliss-32 V4.0-74 


14-Sep-19 
1 ROUTINE display_rights : NOVALUE = 
BEGIN ete At 


eee 
! 

Display the identifiers found in the process rights lists. 
i Inputs: 


- The process rights are displayed. 


siz 

id_block : REF VECTOR 
name_buffer : VECT Rt $01. 
name_desc : VECTOR(2); 


; First, get the total number of ID's that are in the rights List. 


if NOT (status = SCMKRNL(ROUTIN = get_rights_size, 
LST = size)) 
THEN (SIGNAL(.status); RETURN); 
' 
Now grab a chunk of memory large enough to put the ID's. 


IF NOT (status = Lib$get_vm(ZREF(8*.size), id_block)) 
THEN (SIGNAL(.status); RETURN); 


' 

Get the ID's 

if NOT (status = SCMKRNL(ROUTIN = 
ARGLST = 

THEN (SIGNAL(.status); RETURN); 


4 

: If the second ID block is zero, then there is nothing to display. 
-id_ block(2) EQ. 0 
N RETURN; 


IF 
THE 
' 

Print a header. 

showSwrite_lLine(ZASCID "Process rights identifiers:', 0); 


name_desc{1] = name_buffer; 


CLIUTL.SRCJSHOWPROC .B32;1 


e 


H Run thru the ID's, skipping the UIC identifier. 
incR i FROM 1 TO .size-1 DO 

LF -id_block(2*.i] NEQ 0 

HEN 


4 
4 


MEW DOONAOUE 


ee iebeerge 8:95:12 


yar Ot ist =32 V4.0-74 
CLIUTL. sre] SHOWPROC .B32;1 


3 1 
3; 1 1 
: 16 1 
: 14 151 
ar 13} 
: 16 1514 4% BEGIN 
3 14 1515 & oaee desc(0) = BALL OCAT 104 (neme_bu buffer) 
: 14 | 1 F NOT (status = SIDTOASC(ID id “block£2«. il, 
3 14 P 151 NAMLEN = name desc 
; 146 1 18 NAMBUF = name-desc)) 
: 14 1519 4 THEN SIGNAL(. status) 
3 14 4 4 ELSE showSwrite_Line(ZASCID ' !AS', SREF(name_desc)); 
3 12 : : ¢ END; 
+ 1440 1524 2 RETURN; 
> 1461 1525 1 END; 
«PSECT S$PLITS$,NOWRT,NOEXE,2 
20 73 4 ¢8 q 69 72 20 73 73 65 63 6F 72 50 poeace P.AGJ «ASCII \Process rights identifiers:\<0> 
72 65 69 66 69 74 6E 65 64 69 08D 
o1 £0018 OOBE4 P.AGI: .LONG 17694747 
0000000° OBES “ADDRESS P.AGJ 
53 41 21 20 OBEC P.AGL: . ASCII \ 'AS\ 
01060004 OOBFO P.AGK: .LONG 17694724 
00000000" O0BF4 -ADDRESS P.AGL 
.EXTRN SYSSIDTOASC 
.PSECT $CODE$,NOWRT,2 
OOFC 00000 DISPLAY_RIGHTS: 
.WORD Save R2,R3, Rs f- R6,R7 
57 900000006 00 9 9002 MOVAB SHOWSWRITE LINE, R7 
36 00000006 00 9€ 000 OVAB LIBSSIGNAL; ae 
5 000000006 00 9E 9019 MOVAB SYSSCMKRNL, R5 
5E FF74 CE 9E 0001 OVAB -140(SP), §P 
04 AE OF Ooic PUSHAB SIZE 
0000v CF OF 1F PUSHAB GET_RIGHTS Size 
$5 : F CALLS #2, SYSSCMRRN 
4 D VL RO, STATUS 
2c 4 9 LBC = STATUS, 18 
08 AE F C PUSHAB 1p BLOCK 
04 AE 08 AE 03 78 6 ; SHL #3, SIZE, 4(SP) 
06 AE OF PUSHAB 4(§P) 
000000006 90 F CALLS #2, LIBSGET_V 
4 D F MOVL RO, STATUS 
13 4 €£ BLBC SATUS 1$ 
g 08 AF DO 0004 MOVL iS BLOeK. R3 
53 DD 0094 PUSHL 
0000v CF 9F 00048 PUSHAB GET_RIGHT 
$5 08 F Ou CALLS @ SYSSCRRRNL 
4 D 52 MOVL RO. STAT 
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1451. 
1477. 


1483 


1491 


a a ee eee 1h oe 


$ ESS 18-50 -1 :25:1 AX-11 Bliss-32 V4.0-74 P 3 
Je 000. ae iat rik et a cP Alt hg pi Se eS age 483 
06 4 €8 ; BLBS STATUS, 2$ : 
4 DD 1$: PUSHL  STATU + 1492 
ry 1 FB A CALLS #1, LIBSSIGNAL : 
08 A} D3 28: TSTL  8(R3) t 1497 
; 6 BEQL 6$ 3 
E p4 6 CLRL 0s =< SP + 1503 
0000° cf F 0006 PUSHAB P.AGI : 
67 2 FB 0006 CALLS #2, SHOWSWRITE_LINE : 
10 AE 14 AE 3 6 MOVAB NAME_BUFFER, NAME_DESC+4 + 1505 
ese eect owe 
50 52 f 75 3$: ASHL #1 ! RO + 1512 
6349 D 0 TSTL  (R$)CRO) : 
1 7¢ BEQL «=sS$ ; 
OC AE 78 OF 9h 07 MOVZBL #120, NAME_DESC + 1515 
— 7¢ 0008 CLRQ = (SPS + 1518 
7E D4 0008 CLRL 0s = (SP) : 
18 AE OOF 0087 PUSHAB WNAME_DES : 
1C AE 9F OOO8A PUSHAB NAME DESC : 
6340 DD 0008 PUSHL  (R3)CR : 
000000006 90 : F 9090 CALLS #6, SYSSIDTOASC : 
4 DO 0009 VL —sRO,_- STATUS F 
07 4 EB 0009A LBS STATUS, 4$ : 
4 DD 00090 PUSHL STAT + 1519. 
66 1 Fe 09F CALLS #1, LIBSSIGNAL : | 
D 11 000A2 BRB $ F 
6€ OC AE 9E OO0A4 4$ OVAB WAME_DESC, (SP) + 1520 
SE DD O00A8 PUSHL SP : | 
0000" CF 9F OOOAA PUSHAB P.AGK ; 
67 2 Fe OOAE CALLS #2, SHOWSWRITE_LINE F 
BF 52 04 AE F2 00081 5S: AOBLSS SIZE, I, 3$ : 151 
04 00086 6$: RET ; 152 


; Routine Size: 183 bytes, Routine Base: SCODES + 076E 
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18.43 -1984 :25:1 
12=808-1 382 9 :6554 
ROUTINE get_rights_size = 
BEGIN 


'eee4 
! 
Calculate the size of the rights List 
THIS ROUTINE OPERATES IN KERNEL MODE 


Inputs: 
AP = address of size longword 


Outputs: 
AP gets filled with the number of rights ID's found. 


BUILTIN 
ap; 


BIND 
cb = .ctl$gl_pcb : LOCK, 
ord = “Seblpebsl wets $BBLOCK, 
rightslist = arbCarb$l_rightslis 


REGISTER 
size; 


t] : VECTOR; 


size = 0; 


' 
! For each rights list described in the rightslist vector, add 
the size of the rights List. 


iNCR i FROM 0 TO 3 DO 
BEGIN 


BIND 
rights desc = ofighestisel.t) : SBBLOCK; 
IF arigntslist -i] nNEQ 0 
— size = .size + .rights_desc(dsc$w_length]; 


AX-11 Blis 
CLIUTL.SRC 


i The size is in bytes. and each rigats ID is 8 bytes. So, return 


the number of ID's, NOT the size in bytes. 
.ap = .size/8; 

RETURN 1; 

ND; 


001C 00000 GET_RIGHTS SIZE: 


«WORD Save R2,R3,R4 


j 


=32 V4.0-74 
SHOWPROC .B32;1 


3: 1526 


13 
1a 8ep-198e $2:b9:0c Lek Tut SAE SsAbwhRoe soso: 1 
i +t CRO) ORS 
18: MOVE R C1], R2 


MOVZWL (R2) a 


} heat R4, $17 
: 


50 000000006 
53 008C 26 
634 


52 s 
or raat 
va 


6C¢ 


#8. SIZE, (AP) 
MOVL #1. RO 


D 
} 
Dd 
5 
f 
0 


FOnNWUONWONM oO 


1 

1 

1 

1 

a3 
00 


; Routine Size: 41 bytes, Routine Base: SCODES + 0825 


g 
~ 
a 


Oust Ow 


MEMO Diuis On ~~ 


— Ve SS Ss 
MMV UUW 


ANNO O&O 


None. The data is copied to the user area. 


13 
S ESS 1b-Se “19 :25:1 AX-11 Bliss-32 v4.0-74 Pa 6 
v04 eaeeei ibe 3iboiee | eet ae sae ubRar a$5. 1 9 438 
494 76 1 ROUTINE get_rights = 
495 Fe) BUTANE getarig 
$38 7 
49 7 oeee 
$38 ! 
& ! This routine copies the local rights into a user-readab'e area. 
01 § : This routine executes in KERNEL mode. 
¢ i Inputs: 
37 5 AP = address of local user area 
5 Outputs: 
i 
i 


BUILTIN 
ap; 


BIND 
pcb = .ctl$gl_pcb : LOCK, 
arb = “pebLocBSl welt SBBLOCK, 
rightslist = arbfarb$l_rightslist] : VECTOR; 


LOCAL 
ptr; 


wWwnr—owoer 


ooo 


ptr = .ap; 


ARANVLSSSLSAE 


For each rights List described in the PCB rightslist vector, 
if the size is non-zero, copy the contents of the rights List 
to the user area. 


NCR_i FROM 0 TO 3 DO 
BEGIN 
BIND 


rights desc = oflgngstisel.t) : SBBLOCK; 

IF rigntstist -i] NEG 0 

THEN IF .rights desc(dsc$w_length] NEQ 0 

THEN ptr = CHSMOVE(.rights_descldsc$w_length] 
opie tscoee dsc “pointers, 
ptr); 


Ss 


ooo 


END; 
RETURN 1; 
END; 


Be Se Se Se Ge Ge Ge Se Ge Se Ge Ge Se Ge Ge Ge Fe Se Ge Ge Ge Ge Ge Se Se Se Se Se Ge Ge Ge Ge Se Ge Se Se Se Se Se Se Ge Se SH Se Se Gee 
aa a a a a an a at at tt a ss ss 1 oS 


DUD DV DPV PUPVPVDPVPVDVSUDVSVSUSVSU SSSI SST STII 
i a dk dt 


PAPA AAAAAAASAAAAAACAOO OMIT 


rs kd at td th td 


RORGRS Se ss 
M—OOOwOulwry—O0@ 


OOFC 00000 GET_RIGHTS: 
WORD Save R2,R3,.R4,R5,R6,R7 3 18 

50 000000006 DO 000 MOVL cTLSGL Pca. rb ; 1396 

57 008¢ £9 C1 00 ADDL3 #32, 120(R6), R7 : 1598 | 
C 00 F MOVL AP, PTR > 1603 


$s ESS 


; Routine Size: 


63 
ED 


43 bytes, 


50 


0 68 
5 
5 


ooo 


Routine Base: 


SCODES + 084E 


o 
ss "N—O-—-CT7o 


Sssssssss 


MPN 


ifs }ee- 


18: 


N 
had 


FPNWMOPOLrw 


Oe Vi68:8 Heth 


MOVL (79013, RO 


TStw (ROD 

BEQL 

MOVC3 (RO), a4(RO), 
AOBLEQ #3, f, 1$ 
MOVL #1, RO 

RET 


ORE SshoubROL-088: 1 


(PTR) 


ep-19 AX-11 Bliss-32 V4.0-74 P 8 
b-Senn198 Wbiboee — Eekrure Sat Ssnoubnoc.o$5;1 29° 485 
1 c 
0 ELUDOM 
-EXTRN LIBSSIGNAL, LIBSSTOP 
‘ PSECT SUMMARY 
3 Bytes Attributes 
; 1236 NOVEC, WRT, RD ,NOEXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 
3 3 NOVEC .NOWRT, RD ,NOEXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 
3 $ NOVEC, WRT, RD ,NOEXE, a's od LCL, REL, CON,NOPIC,ALIGN(2) 
3 NOVEC,NOWRT, RD, EXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 
; Library Statistics 
3 ccocsses Syabel§ ooccocce Pages Processing 
3 File Total Loaded Percent Mapped Time 
; _$255$DUA28:(SYSLIBILIB.L32;1 18619 76 0 1000 00:01.9 
: Information: 1 
3; Warnings: 0 
3; Errors: 0 
; COMMAND QUALIFIERS 
; BLISS/CHECK=(FIELD, INITIAL .OPTIMIZE)/LIS=LIS$:SHOWPROC/OBJ=OBJ$:SHOWPROC MSRC$:SHOWPROC/UPDATE=(ENHS: SHOWPROC) 
3; Size: 2169 ¢ e + 4328 data bytes 
3; Run be F if ¢ 
; Elapsed T 
; Fees eeu Hin: 836" 
3 Lexemes/CPU-Min: 24 
; ry Used: 294 pages 
3; Compilation Complete 
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